Update kinfit and mkin to the latest version published on BerliOS.

git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@17 edb9625f-4e0d-4859-8d74-9fd3b1da38cb

1 files changed, 33 insertions, 0 deletions

diff --git a/inst/GUI/simple-Gtk.R b/inst/GUI/simple-Gtk.R
new file mode 100644
index 0000000..8affdcc
--- /dev/null
+++ b/inst/GUI/simple-Gtk.R
@@ -0,0 +1,33 @@
+# Work in progress - simple Gtk2 GUI for mkin

+require(gWidgets)

+options("guiToolkit"="RGtk2")

+

+w <- gwindow("Simple R GUI for kinetic evaluations",

+  width=800, height=500)

+

+# Project definition expanding group

+pr <- gexpandgroup("Project definition", container=w)

+

+n.observed <- 1

+max.n.observed <- 9

+observed.names = c("parent", paste("M", 1:(max.n.observed - 1), sep=""))

+

+prg <- ggroup(horizontal=FALSE, cont = w)

+prl <- glayout(cont = prg)

+prl[1,1] <- glabel("Number of observed variables", cont=prl)

+prl[1,2] <- (n.observed.gw = gcombobox(

+  1:max.n.observed, 

+  handler = function(h, ...) {

+    n.observed <- svalue(n.observed.gw)

+    visible(observed.gw) <- c(

+      rep(TRUE, svalue(n.observed)), 

+      rep(FALSE, max.n.observed - n.observed))

+  },

+  cont=prl))

+

+observed.gw <- gdf(

+  items = data.frame(Index = 1:max.n.observed, 

+    Name = observed.names, stringsAsFactors=FALSE),

+  name = "Names of observed variables",

+  cont=prg)

+