Changeset 2287 for branches/blt4/gui

Timestamp:

Jun 21, 2011, 3:41:22 PM (13 years ago)

Author:

gah

Message:

fixes for datatable and numberresult viewers

Location:

branches/blt4/gui/scripts

Files:

• datatable.tcl (modified) (1 diff)
• datatableresult.tcl (modified) (1 diff)
• numberresult.tcl (modified) (10 diffs)
• resultviewer.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 row length] } { incr row } {
+        for { set row 1 } { $row <= [$d0 numrows] } { incr row } {
             set child [$_tree insert 0]
             set c 0 

branches/blt4/gui/scripts/datatableresult.tcl

@@ -312 +312 @@
     }
     foreach col [$itk_component(treeview) column names] {
-        if { [string match "BLT TreeView*" $col] } {
-            continue
-        }
         $itk_component(treeview) column delete $col
     }

branches/blt4/gui/scripts/numberresult.tcl

@@ -875 +875 @@
     set g $itk_component(plot)
     set elem ""
-
+  
     # Peek inside of Blt_ZoomStack package to see if we're currently in the
     # middle of a zoom selection.
@@ -882 +882 @@
     }
     set tip ""
+    set found 0
     if {$state == "at"} {
-        if {[$g element closest $x $y info -interpolate yes]} {
+        set results [$g element closest $x $y -interpolate yes]
+        if { $results != "" } {
+            array set info $results
             # for dealing with xy line plots
             set elem $info(name)
+
             # Some elements are generated dynamically and therefore will
-            # not have a data object associated with them.
+            # not have a dataobj object associated with them.
             set mapx [$g element cget $elem -mapx]
             set mapy [$g element cget $elem -mapy]
@@ -896 +900 @@
             # search again for an exact point -- this time don't interpolate
             set tip ""
-            if {[$g element closest $x $y info -interpolate no]
-                  && $info(name) == $elem} {
+            array unset info
+            set results [$g element closest $x $y -interpolate no]
+            array set info $results
+
+            if { [info exists info(name)] && $info(name) == $elem } {
+                set found 1
+
                 set x [$g axis transform $mapx $info(x)]
                 set y [$g axis transform $mapy $info(y)]
-
+                
+                set tip ""
                 if {[info exists _elem2dataobj($elem)]} {
                     set dataobj $_elem2dataobj($elem)
@@ -917 +927 @@
                 }
             }
-            set state 1
-        } elseif {[$g element closest $x $y info -interpolate no]} {
-            # for dealing with xy scatter plot
-            set elem $info(name)
-            foreach {mapx mapy} [GetAxes $_elem2dataobj($elem)] break
-
-            # search again for an exact point -- this time don't interpolate
-            set tip ""
-            if {$info(name) == $elem} {
+        } else { 
+            set results [$g element closest $x $y -interpolate no]
+            if { $results != ""  } {
+                set found 1
+
+                array unset info
+                array set info $results
+                # for dealing with xy scatter plot
+                set elem $info(name)
+                
+                # Some elements are generated dynamically and therefore will
+                # not have a dataobj object associated with them.
+                set mapx [$g element cget $elem -mapx]
+                set mapy [$g element cget $elem -mapy]
+                if {[info exists _elem2dataobj($elem)]} {
+                    foreach {mapx mapy} [GetAxes $_elem2dataobj($elem)] break
+                }
+                
+                set tip ""
                 set x [$g axis transform $mapx $info(x)]
                 set y [$g axis transform $mapy $info(y)]
-
+                
                 if {[info exists _elem2dataobj($elem)]} {
                     set dataobj $_elem2dataobj($elem)
@@ -945 +965 @@
                 }
             }
-            set state 1
-        } else {
-            set state 0
-        }
-    }
-
-    if {$state} {
+        }
+    }
+
+    if { $found } {
         #
         # Highlight ON:
@@ -958 +975 @@
         # - pop up tooltip about data
         #
-        if {$_hilite(elem) != "" && $_hilite(elem) != $elem} {
+        if { [$g element exists $_hilite(elem)] && $_hilite(elem) != $elem } {
             $g element deactivate $_hilite(elem)
             $g crosshairs configure -hide yes
@@ -966 +983 @@
         set _hilite(elem) $elem
 
-        set dlist [$g element show]
-        set i [lsearch -exact $dlist $elem]
-        if {$i >= 0} {
-            set dlist [lreplace $dlist $i $i]
-            lappend dlist $elem
-            $g element show $dlist
-        }
-
-        foreach {mapx mapy} [GetAxes $_elem2dataobj($elem)] break
-
+        set mapx [$g element cget $elem -mapx]
+        set mapy [$g element cget $elem -mapy]
+        if {[info exists _elem2dataobj($elem)]} {
+            foreach {mapx mapy} [GetAxes $_elem2dataobj($elem)] break
+        }
         set allx [$g x2axis use]
         if {[llength $allx] > 0} {
@@ -1042 +1054 @@
         # - take down tooltip
         #
-        if {"" != $_hilite(elem)} {
+        if { [$g element exists $_hilite(elem)] } {
             $g element deactivate $_hilite(elem)
-
-            set allx [$g x2axis use]
-            if {[llength $allx] > 0} {
-                lappend allx x  ;# fix main x-axis too
-                foreach axis $allx {
-                    $g axis configure $axis -color $itk_option(-foreground) \
-                        -titlecolor $itk_option(-foreground)
-                }
-            }
-
-            set ally [$g y2axis use]
-            if {[llength $ally] > 0} {
-                lappend ally y  ;# fix main y-axis too
-                foreach axis $ally {
-                    $g axis configure $axis -color $itk_option(-foreground) \
-                        -titlecolor $itk_option(-foreground)
-                }
+        }
+        set allx [$g x2axis use]
+        if {[llength $allx] > 0} {
+            lappend allx x  ;# fix main x-axis too
+            foreach axis $allx {
+                $g axis configure $axis -color $itk_option(-foreground) \
+                    -titlecolor $itk_option(-foreground)
+            }
+        }
+        
+        set ally [$g y2axis use]
+        if {[llength $ally] > 0} {
+            lappend ally y  ;# fix main y-axis too
+            foreach axis $ally {
+                $g axis configure $axis -color $itk_option(-foreground) \
+                    -titlecolor $itk_option(-foreground)
             }
         }
@@ -1071 +1082 @@
         }
 
-        # there is no currently highlighted element
+        # There is no currently highlighted element
         set _hilite(elem) ""
     }
@@ -1539 +1550 @@
 # ----------------------------------------------------------------------
 itcl::configbody Rappture::NumberResult::gridcolor {
-    if {"" == $itk_option(-gridcolor)} {
-        $itk_component(plot) grid off
+    if { "" == $itk_option(-gridcolor) } {
+        foreach axis [$itk_component(plot) axis names] { 
+            $itk_component(plot) axis configure $axis -grid off
+        }
     } else {
-        $itk_component(plot) grid configure -color $itk_option(-gridcolor)
-        $itk_component(plot) grid on
-    }
-}
+        foreach axis [$itk_component(plot) axis names] { 
+            $itk_component(plot) axis configure $axis \
+                -gridcolor $itk_option(-gridcolor) -grid on
+        }
+    }
+}

branches/blt4/gui/scripts/resultviewer.tcl

@@ -350 +350 @@
                     set mode "number"
                     if {![info exists _mode2widget($mode)]} {
-p                        set w $itk_interior.number
+                        set w $itk_interior.number
                         Rappture::NumberResult $w
                         set _mode2widget($mode) $w