From addb6359238596ca98f696da2d33271b851c08ac Mon Sep 17 00:00:00 2001 From: jranke Date: Thu, 5 Sep 2013 13:18:19 +0000 Subject: Clean up the GUI directory, the old stuff does not really help a lot git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@89 edb9625f-4e0d-4859-8d74-9fd3b1da38cb --- inst/GUI/simple-Gtk.R | 33 --------------------------------- 1 file changed, 33 deletions(-) delete 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 deleted file mode 100644 index 8affdccc..00000000 --- a/inst/GUI/simple-Gtk.R +++ /dev/null @@ -1,33 +0,0 @@ -# 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.1