Changeset 2969 for branches/blt4

Timestamp:

Apr 13, 2012, 3:50:57 PM (12 years ago)

Author:

gah

Message:

datatable rows/columns numbered from 0 now. Index in resultviewer is really a list. Fixed element deactivate test (was always false)

Location:

branches/blt4/gui/scripts

Files:

• datatable.tcl (modified) (1 diff)
• resultviewer.tcl (modified) (1 diff)
• xyresult.tcl (modified) (1 diff)

branches/blt4/gui/scripts/datatable.tcl

@@ -144 +144 @@
         package require blt_datatable_csv
         $d0 import csv -data $csvdata
-        for { set row 1 } { $row <= [$d0 numrows] } { incr row } {
+        for { set row 0 } { $row < [$d0 numrows] } { incr row } {
             set child [$_tree insert 0]
             set c 0 

branches/blt4/gui/scripts/resultviewer.tcl

@@ -572 +572 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::ResultViewer::_cleanIndex {index} {
+    set index [lindex $index 0]
     if {[regexp {^#([0-9]+)} $index match num]} {
         return [expr {$num-1}]  ;# start from 0 instead of 1

branches/blt4/gui/scripts/xyresult.tcl

@@ -1041 +1041 @@
         # - take down tooltip
         #
-        if { [$g element exists $_hilite(elem)] } {
+        if { [$g element exists _hilite(elem)] } {
             $g element deactivate $_hilite(elem)
         }