From 04def8dc34c5557dd62b903e3249e5f5e98f289c Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Thu, 28 Aug 2014 16:03:44 +0200 Subject: Initial message to explain target input field in model editor Thanks to Denis Weber for pointing out the need for this --- inst/GUI/gmkin.R | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'inst/GUI') 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) { -- cgit v1.2.1