aboutsummaryrefslogblamecommitdiff
path: root/inst/GUI/simple-Gtk.R
blob: 8affdcccfc0f43b8d6dd61d786809b54d3e5142f (plain) (tree) 
1718d43

































1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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)

Contact - Imprint