From b85eb94988f28eb2a096c377470f39e752e466d0 Mon Sep 17 00:00:00 2001
From: jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Mon, 14 Oct 2013 15:52:08 +0000
Subject: - 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
---
 inst/GUI/simple.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'inst')

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:
-- 
cgit v1.2.1