Changeset 0bb1f94 in tol for tolbase

Timestamp:

Dec 11, 2009, 7:37:11 PM (17 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

ca98181

Parents:

b83f1d6

Message:

fixes #806

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@1798 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/toltk/tolmethods.tcl (modified) (3 diffs)

tolbase/lib/toltk/tolmethods.tcl

@@ -167 +167 @@
   set lstSerie {}    
   switch $namGra {
-    Serie   { set lstSerie $source }
+    Serie   { set lstSerie [ list [ list Serie $source ] ] }
     Set     {
       set nsource [lindex [TclGetVar Set $source] 0]
       for {set i 1} {$i <= $nsource} {incr i} {
-        lappend lstSerie "$source $i"
+        lappend lstSerie [list Set $source $i ]
       }
     }
@@ -349 +349 @@
   if {[llength $set] > 1} {
     set nameSet [lindex [::tol::info variable $set] 1]
+    set setref $set
   } else {
     set nameSet $set
+    set setref [ list Set $set ]
   }
   
@@ -358 +360 @@
 
   set tl {}
-  if {![catch {::tol::tableset create $setgrp $set}]} {
+  if { ![ catch { ::tol::tableset create $setgrp $setref } ] } {
     # create
     set tl [::project::CreateForm \