Changeset 6c8a66a in tol for tolbase/lib/toltk/tolmethods.tcl

Timestamp:

Dec 22, 2008, 4:37:24 PM (18 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

9adfa3f

Parents:

6807ff6

Message:

updating Chart Set method to new API of toltcl

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

File:

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

tolbase/lib/toltk/tolmethods.tcl

@@ -286 +286 @@
   set top [$tl getframe]
   # if source is a list is interpreted as a set name and indexes accesing a element
+  if {0} {
   if { [llength $source] > 1 } {
     set setname [GetUniqueName Set]
@@ -297 +298 @@
     set source $setname
   }
+  }
   set cmd tableset[clock clicks]
-  ::tol::tableset create $cmd $source
+  ::tol::tableset create $cmd [linsert $source 0 Set]
   set Instance [::SetGraphDialog::DrawSet $top.g $cmd $source $type $lstPairs \
     $lstNames $gcfFile [list $title]]