Changeset 3f32a91 in tol for tolbase

Timestamp:

May 24, 2011, 2:43:40 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

fb0ede0

Parents:

73aa7bf6

Message:

fix #1221, es importante mantener el orden de las columnas para poder seleccionar correctamente los pares y los impares.

Antes de pasar este fix a la version oficial 2.0.1, hay que verificar que este cambio no afecta a otra parte de tolbase.

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

File:

• tolbase/lib/toltk/setgraph.tcl (modified) (4 diffs)

tolbase/lib/toltk/setgraph.tcl

@@ -775 +775 @@
     set data(var,listX) [lsort -index 1 $data(var,listX)]
   }
-  set data(var,listX) [lsort $data(var,listX)]  
+  #set data(var,listX) [lsort $data(var,listX)]  
 
   # fill data(var,listY)
@@ -785 +785 @@
     set data(var,listY) [lsort -index 1 $data(var,listY)]
   }
-  set data(var,listY) [lsort $data(var,listY)]
+  #set data(var,listY) [lsort $data(var,listY)]
 }
 
@@ -888 +888 @@
   variable data
   # travel all columuns
+  #puts "DEBUG: ::SetGraphDialog::GrapthEvenUneven"
   set row 0
   for {set i 0} {$i<[expr [llength $data(var,listY)] - 1]} {incr i 2} {
@@ -1170 +1171 @@
   variable data
  
+  #puts "DEBUG: ::SetGraphDialog::SetSelection"
   set colX [lindex [lindex $data(selected) 0] 0]
   # Si la columna que fija el X del primer elemento es genérica o de tipo 2