From 1718d434efae26de02754c6622c43f4dc9e624b9 Mon Sep 17 00:00:00 2001
From: jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Thu, 15 Mar 2012 15:54:14 +0000
Subject: 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
---
 inst/GUI/simple-Gtk.R | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 inst/GUI/simple-Gtk.R

(limited to 'inst/GUI/simple-Gtk.R')

diff --git a/inst/GUI/simple-Gtk.R b/inst/GUI/simple-Gtk.R
new file mode 100644
index 00000000..8affdccc
--- /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)
+
-- 
cgit v1.2.3