Changeset 2490d320 in tol for tolbase

Timestamp:

Dec 9, 2008, 9:57:12 PM (18 years ago)

Author:

Christian Paz <cpaz@…>

Branches:

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

Children:

31db565

Parents:

6019d02

Message:

First part of correction of TclChartSerie method to chart series.

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

File:

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

tolbase/lib/toltk/tolmethods.tcl

@@ -49 +49 @@
 #/////////////////////////////////////////////////////////////////////////////
   # cargamos la variable GCFFile de TOL
-  set fileGCF [TclGetVar Text GCFFile]
+  set fileGCF [::tol::info variable [list Text GCFFile] ]
   if {![file exists $fileGCF]} {
     set fileGCF {}
@@ -94 +94 @@
   # GCF
   if {![string length $gcfFile]} {
-    set gcfFile [TclGetVar Text GCFFile]
+    set gcfFile [::tol::info variable [list Text GCFFile]]
     if {[string length $gcfFile]} {
       eval set gcfFile $gcfFile
@@ -110 +110 @@
 
   # Create Group Series
-  set nsource [lindex [TclGetVar Set $source] 0]
+  # ::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]
   set lstSerie {}
-  for {set i 1} {$i <= $nsource} {incr i} {
+  set i 1
+  while {$i <= $nsource && $i <= 32 } {
     lappend lstSerie "$source $i"
+        set i [expr $i+1]
   }
   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] 
     eval ::tol::seriegrp create $sergrp $lstSerie
     # Create
@@ -159 +165 @@
   set gramVar [GetGlobalUniqueName __tabser__]
   ::tol::console eval "Text $gramVar = Grammar($source);"
-  set namGra [string trim [TclGetVar Text $gramVar] {"}];#{"}    
+  set namGra [string trim [::tol::info variable [list Text $gramVar] ] {"}];#{"}    
   # destroy
   ::tol::console stack release $gramVar    
@@ -167 +173 @@
     Serie   { set lstSerie $source }
     Set     {
-      set nsource [lindex [TclGetVar Set $source] 0]
+      set nsource [lindex [::tol::info variable [list Set $source] ] 0]
       for {set i 1} {$i <= $nsource} {incr i} {
         lappend lstSerie "$source $i"
@@ -268 +274 @@
   # GCF
   if {![string length $gcfFile]} {
-    set gcfFile [TclGetVar Text GCFFile]
+    set gcfFile [::tol::info variable [list Text GCFFile] ]
   }
   if {![file exists $gcfFile]} {