- set svn keyword for Id tag in simple.R

- set initial foldlevel for two files to 0



git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@114 edb9625f-4e0d-4859-8d74-9fd3b1da38cb

1 files changed, 3 insertions, 3 deletions

diff --git a/inst/GUI/simple.R b/inst/GUI/simple.R
index d3adcadc..ab9d8d90 100644
--- a/inst/GUI/simple.R
+++ b/inst/GUI/simple.R
@@ -211,13 +211,13 @@ m.gtable <- gtable(m.df, multiple = TRUE, cont = dsm)
 addHandlerDoubleClick(m.gtable, m.switcher)

 size(m.gtable) <- list(columnWidths = c(40, 200))

 

-# Section for selecting datasets and model

+# Section for selecting datasets and model {{{2

 dsmsel <- gvbox(cont = dsm)

 ds_plot_handler <- function(h, ...) {

   ds.sel <- svalue(ds.gtable)

   n.ds.sel <- length(ds.sel)

   for (i in 1:n.ds.sel) {

-    prows[[i]] <- ggroup(cont = pfv)

+    prows[[i]] <<- ggroup(cont = pfv)

     d <- ds[[ds.sel[[i]]]]

 

     f <- tempfile()

@@ -517,4 +517,4 @@ prows <- plots <- list()
 #                     use.codemirror = TRUE)

 #}

 # 1}}}

-# vim: set foldmethod=marker ts=2 sw=2 expandtab:

+# vim: set foldmethod=marker foldlevel=0 ts=2 sw=2 expandtab: