Initial message to explain target input field in model editor

Thanks to Denis Weber for pointing out the need for this

1 files changed, 6 insertions, 2 deletions

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) {