Changeset 31db565 in tol for tolbase/lib/toltk/tolmethods.tcl

Timestamp:

Dec 10, 2008, 1:05:15 PM (18 years ago)

Author:

Liván Ramírez Dorta <livanr68@…>

Branches:

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

Children:

de4a617

Parents:

2490d320

Message:

List of series at 'source' must be preceded by identifier 'Set' at proc 'Tol_SerieChart'

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

File:

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

tolbase/lib/toltk/tolmethods.tcl

@@ -49 +49 @@
 #/////////////////////////////////////////////////////////////////////////////
   # cargamos la variable GCFFile de TOL
-  set fileGCF [::tol::info variable [list Text GCFFile] ]
+  set fileGCF [TclGetVar Text GCFFile]
   if {![file exists $fileGCF]} {
     set fileGCF {}
@@ -94 +94 @@
   # GCF
   if {![string length $gcfFile]} {
-    set gcfFile [::tol::info variable [list Text GCFFile]]
+    set gcfFile [TclGetVar Text GCFFile]
     if {[string length $gcfFile]} {
       eval set gcfFile $gcfFile
@@ -102 +102 @@
     set gcfFile {}
   }
-puts "GCF FILE: $gcfFile"  
+  #puts "GCF FILE: $gcfFile"  
   # Title
   set wTitle $title
@@ -110 +110 @@
 
   # Create Group Series
-  # ::tol::info variable returns a list [Grammar VariableName [numofelements "Elementos"] ... ]
-  # so get the index 0 of the index 2
-  set nsource [lindex [lindex [::tol::info variable [list Set $source]] 2] 0]
+  #puts "Tol_SerieChart: source = $source"
+  set nsource [lindex [TclGetVar Set $source] 0]
   set lstSerie {}
-  set i 1
-  while {$i <= $nsource && $i <= 32 } {
-    lappend lstSerie "$source $i"
-        set i [expr $i+1]
+  for {set i 1} {$i <= $nsource} {incr i} {
+    lappend lstSerie "Set $source $i"
   }
   set sergrp tableserie[clock clicks]
-
   set tl ""
   if {[llength $lstSerie]} {
       # MDI
-
     set tl [::project::CreateForm \
       -title $wTitle -type Graphs -iniconfig SeriesGraph -geometry $geometry]
     $tl setgeometry $geometry
-    set top [$tl getframe] 
+    set top [$tl getframe]
+    #puts "Tol_SerieChart: tol::seriegrp sergrp = $sergrp, lstSerie = $lstSerie"
     eval ::tol::seriegrp create $sergrp $lstSerie
     # Create
@@ -165 +161 @@
   set gramVar [GetGlobalUniqueName __tabser__]
   ::tol::console eval "Text $gramVar = Grammar($source);"
-  set namGra [string trim [::tol::info variable [list Text $gramVar] ] {"}];#{"}    
+  set namGra [string trim [TclGetVar Text $gramVar] {"}];#{"}    
   # destroy
   ::tol::console stack release $gramVar    
@@ -173 +169 @@
     Serie   { set lstSerie $source }
     Set     {
-      set nsource [lindex [::tol::info variable [list Set $source] ] 0]
+      set nsource [lindex [TclGetVar Set $source] 0]
       for {set i 1} {$i <= $nsource} {incr i} {
         lappend lstSerie "$source $i"
@@ -274 +270 @@
   # GCF
   if {![string length $gcfFile]} {
-    set gcfFile [::tol::info variable [list Text GCFFile] ]
+    set gcfFile [TclGetVar Text GCFFile]
   }
   if {![file exists $gcfFile]} {