Changeset 1111 for trunk/gui/scripts/xyresult.tcl

Timestamp:

Aug 13, 2008 1:33:28 PM (16 years ago)

Author:

gah

Message:

nanovis/heightmap update

File:

• trunk/gui/scripts/xyresult.tcl (modified) (8 diffs)

trunk/gui/scripts/xyresult.tcl

@@ -124 +124 @@
     Rappture::Tooltip::for $itk_component(reset) "Reset the view to the default zoom level"
 
-
     itk_component add plot {
         blt::graph $itk_interior.plot \
@@ -134 +133 @@
     pack $itk_component(plot) -expand yes -fill both
     $itk_component(plot) pen configure activeLine \
-        -symbol square -pixels 3 -linewidth 2 -color black
+        -symbol square -pixels 3 -linewidth 2 \
+        -outline black -fill red -color black
 
     #
@@ -200 +200 @@
     
     #
-    # Add support for editing hidden/elements:
+    # Add legend for editing hidden/elements:
     #
     itk_component add legend {
@@ -206 +206 @@
             -borderwidth 1 -padx 3 -pady 0 \
             -text "L" -font "-*-times new roman-bold-i-*-*-11-*-*-*-*-*-*-*" \
-       -command [list $itk_component(hull).legend activate \
+            -command [list $itk_component(hull).legend activate \
                           $itk_component(controls).legend left]
     } {
@@ -214 +214 @@
     }
     pack $itk_component(legend) -padx 4 -pady 4
-    Rappture::Tooltip::for $itk_component(legend) "Display legend to hide/show elements"
+    Rappture::Tooltip::for $itk_component(legend) \
+        "Display legend to hide/show elements"
 
     Rappture::Balloon $itk_component(hull).legend -title "Legend"
@@ -639 +640 @@
     }
     $g legend bind all <ButtonRelease> [itcl::code $this _legend toggle]
+    $g legend bind all <ButtonRelease-3> [itcl::code $this _legend showall]
+    $g legend bind all <ButtonRelease-2> [itcl::code $this _legend showone]
 
     #
@@ -842 +845 @@
     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.
+    if {[info exists ::zoomInfo($g,corner)] && $::zoomInfo($g,corner) == "B" } {
+        return;
+    }
     if {$state == "at"} {
         if {[$g element closest $x $y info -interpolate yes]} {
@@ -1541 +1550 @@
             }
         }
-    }
-}
+        "showall" {
+            set g $itk_component(plot)
+            set cur [$g legend get current]
+            foreach name [$g element show] {
+                $g legend deactivate $name
+                $g element configure $name -hide no
+                update
+            }
+            $g element configure $cur -hide yes
+            $g legend activate $cur
+        }
+        "showone" {
+            set g $itk_component(plot)
+            set cur [$g legend get current]
+            foreach name [$g element show] {
+                $g legend activate $name
+                $g element configure $name -hide yes
+            }
+            $g element configure $cur -hide no
+            $g legend deactivate $cur
+        }
+    }
+}