From addb6359238596ca98f696da2d33271b851c08ac Mon Sep 17 00:00:00 2001
From: jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
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/simple2.R | 65 ------------------------------------------------------
 1 file changed, 65 deletions(-)
 delete mode 100644 inst/GUI/simple2.R

(limited to 'inst/GUI/simple2.R')

diff --git a/inst/GUI/simple2.R b/inst/GUI/simple2.R
deleted file mode 100644
index 2f725d16..00000000
--- a/inst/GUI/simple2.R
+++ /dev/null
@@ -1,65 +0,0 @@
-# Simple gWidgetsWWW2 GUI for mkin
-w <- gwindow("Simple R GUI for kinetic evaluations")
-sb <- gstatusbar("Powered by gWidgetsWWW2 and Rook", cont = w)
-g <- gframe("Simple R GUI for kinetic evaluations", cont = w,
-            use.scrollwindow = TRUE, horizontal = FALSE)
-
-# Project definition {{{1
-prg <- gexpandgroup("Project definition", cont = g)
-visible(prg) <- TRUE
-
-make_observed <- function(observed.df) {
-  if (!exists("observed.df")) {
-    n.observed <- 2
-    observed.names = c("parent", paste("M", 1:(n.observed - 1), sep=""))
-    observed.df = data.frame(Index = 1:n.observed, 
-                             Name = observed.names,
-                             stringsAsFactors = FALSE)
-  }
-
-  observed.gdf <- gdf(observed.df, 
-                     name = "Names of observed variables", 
-                     width = 500, height = 250, cont = prg)
-  observed.gdf$set_column_width(1, 40)
-}
-
-f <- gfile(text = "Set project file", cont = prg,
-           handler = function(h, ...) 
-           {
-             tmpfile <- normalizePath(svalue(h$obj), winslash = "/")
-             load(tmpfile)
-             make_observed(observed.df)
-           })
-
-# Editable table of studies {{{1
-stg <- gexpandgroup("Studies", cont = g)
-visible(stg) <- FALSE
-studies.df <- data.frame(Index = as.integer(1), 
-                         Author = "FOCUS kinetics workgroup", 
-                         Year = "2006", 
-                         Title = "FOCUS Kinetics",
-                         Datasets = as.integer(3),
-                         stringsAsFactors = FALSE)
-studies.gdf <- gdf(studies.df, 
-                   name = "Editable list of studies in the project",
-                   width = "auto", 
-                   cont = stg)
-studies.gdf$set_column_width(1, 40)
-studies.gdf$set_column_width(2, 200)
-
-# Table of datasets to select them for editing {{{1
-dsg <- gexpandgroup("Datasets", cont = g)
-visible(dsg) <- FALSE
-ds.df <- data.frame(Index = 1:3, 
-                    Study = as.integer(1), 
-                    Title = paste("FOCUS dataset", c("A", "B", "C")),
-                    icon = asIcon(c("editor", "editor", "editor")),
-                    stringsAsFactors = FALSE)
-ds.gtable <- gtable(ds.df, width = "auto", cont = dsg)
-ds.gtable$set_column_width(1, 40)
-ds.gtable$set_column_width(2, 40)
-ds.gtable$set_column_width(3, 200)
-
-
-# 1}}}
-# vim: set foldmethod=marker ts=2 sw=2 expandtab:
-- 
cgit v1.2.1