aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2014-08-28 16:03:44 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2014-08-28 16:03:44 +0200
commit04def8dc34c5557dd62b903e3249e5f5e98f289c (patch)
tree7dce3ae24544c94019393bc94bdad89e8f3f777d
parenta910d2a17eaa5ffc978c27fd0cef56b731f3104c (diff)
Initial message to explain target input field in model editor
Thanks to Denis Weber for pointing out the need for this
-rw-r--r--NEWS.md2
-rw-r--r--inst/GUI/gmkin.R8
2 files changed, 8 insertions, 2 deletions
diff --git a/NEWS.md b/NEWS.md
index 235a3d7..0eeb94d 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -10,6 +10,8 @@
- Option to show the fitting process in a separate plot device, default is not to
+- Add an inital message explaining the use of the target input box of the model editor
+
## BUG FIXES
- Sorting in the fit table now works correctly also for more than 9 fits
diff --git a/inst/GUI/gmkin.R b/inst/GUI/gmkin.R
index f18f744..c85d660 100644
--- a/inst/GUI/gmkin.R
+++ b/inst/GUI/gmkin.R
@@ -557,7 +557,9 @@ add_observed_handler <- function(h, ...) {
cont = m.e.rows[[obs.i]])
svalue(m.e.type[[obs.i]]) <- "SFO"
glabel("to", cont = m.e.rows[[obs.i]])
- m.e.to[[obs.i]] <<- gedit("", width = 40, cont = m.e.rows[[obs.i]])
+ m.e.to[[obs.i]] <<- gedit("",
+ initial.msg = "Optional list of target variables, e.g. 'm1, m2'",
+ width = 40, cont = m.e.rows[[obs.i]])
m.e.sink[[obs.i]] <<- gcheckbox("Path to sink",
checked = TRUE, cont = m.e.rows[[obs.i]])
gbutton("Remove compound", handler = remove_compound_handler,
@@ -622,7 +624,9 @@ show_m_spec <- function() {
glabel("to", cont = m.e.rows[[obs.i]])
obs.to <<- ifelse(is.null(m[[m.cur]]$spec[[obs.i]]$to), "",
paste(m[[m.cur]]$spec[[obs.i]]$to, collapse = ", "))
- m.e.to[[obs.i]] <<- gedit(obs.to, width = 40, cont = m.e.rows[[obs.i]])
+ m.e.to[[obs.i]] <<- gedit(obs.to,
+ initial.msg = "Optional list of target variables, e.g. 'm1, m2'",
+ width = 40, cont = m.e.rows[[obs.i]])
m.e.sink[[obs.i]] <<- gcheckbox("Path to sink", checked = m[[m.cur]]$spec[[obs.i]]$sink,
cont = m.e.rows[[obs.i]])
if (obs.i > 1) {

Contact - Imprint