Changeset 1767 for branches/blt4/gui/scripts

Timestamp:

Jun 20, 2010 11:32:36 AM (14 years ago)

Author:

gah

Message:

 

File:

• branches/blt4/gui/scripts/xylegend.tcl (modified) (14 diffs)

branches/blt4/gui/scripts/xylegend.tcl

@@ -66 +66 @@
     private variable _rename    "";     # Node selected to be renamed.
     private variable _diffelements
+    private variable _unmapHidden 0
 
     constructor {args} { graph }
@@ -74 +75 @@
     private method Add { elem label {flags ""}} 
     private method Average {} 
-    private method Check {}
+    private method BuildPopup { popup } 
+    private method Check { menu }
     private method Delete { args } 
     private method Difference {} 
@@ -82 +84 @@
     private method Lower { args } 
     private method Raise { args } 
+    private method PopupMenu { x y }
     private method Recolor {} 
     private method Rename {} 
@@ -87 +90 @@
     private method Show { args } 
     private method Toggle { args } 
+    private method UnmapHidden {} 
 }
                                                                                 
@@ -152 +156 @@
     $m add -text "Show" -command [itcl::code $this Show] 
     $m add -text "Toggle" -command [itcl::code $this Toggle] 
+    $m add -text "Unmap Hidden" -command [itcl::code $this UnmapHidden] \
+        -variable [itcl::scope _unmapHidden] \
+        -type checkbutton
     $m add -type separator 
     $m add -text "Lower" -command [itcl::code $this Lower] 
@@ -162 +169 @@
     $m add -text "Rename" -command [itcl::code $this Rename]
     $m add -text "Delete" -command [itcl::code $this Delete]
-
+    set _unmapHidden [$graph cget -unmaphiddenelements]
     set _graph $graph
     set cmd [itcl::code $this Toggle current]
@@ -181 +188 @@
         "$itk_component(legend) selection clearall"
     $itk_component(legend) configure -selectcommand \
-        [itcl::code $this Check]
-
+        [itcl::code $this Check $itk_component(controls)]
+    bind $itk_component(legend) <ButtonRelease-3> \
+        [itcl::code $this PopupMenu %X %Y]
     itk_component add editor {
         Rappture::Editor $itk_interior.editor \
@@ -194 +202 @@
         1,0 $itk_component(scrollbars) -fill both 
     blt::table configure $itk_interior r0 -resize none
-    Check
+    Check $itk_component(controls)
     eval itk_initialize $args
 }
@@ -241 +249 @@
     }
     $itk_component(legend) open -recurse root
-    Check
+    Check $itk_component(controls)
 }
 
@@ -376 +384 @@
 }
 
-itcl::body Rappture::XyLegend::Check {} {
+itcl::body Rappture::XyLegend::Check { menu } {
     set nodes [$itk_component(legend) curselection]
-    foreach n {  Hide Show Toggle Raise Lower Rename Average Difference 
-        Delete Recolor } {
-        $itk_component(controls) item configure $n -state disabled
-    }
+    $menu item configure all -state disabled
+    $menu item configure "Unmap Hidden" -state normal
     foreach node $nodes {
         if { [$_tree get $node "delete" 0] } {
-            $itk_component(controls) item configure Delete -state normal
+            $menu item configure Delete -state normal
             break
         }
@@ -390 +396 @@
     if { [$_tree degree 0] > 1  && [llength $nodes] > 0 } {
         foreach n { Raise Lower } {
-            $itk_component(controls) item configure $n -state normal
+            $menu item configure $n -state normal
         }
     }
@@ -398 +404 @@
         1 {
             foreach n { Hide Show Toggle Rename Recolor } {
-                $itk_component(controls) item configure $n -state normal
+                $menu item configure $n -state normal
             }
         }
         2 {
             foreach n { Hide Show Toggle Difference Average Recolor } {
-                $itk_component(controls) item configure $n -state normal
+                $menu item configure $n -state normal
             }
         }
         default {
             foreach n { Hide Show Toggle Average Recolor } {
-                $itk_component(controls) item configure $n -state normal
+                $menu item configure $n -state normal
             }
         }
@@ -557 +563 @@
 }
 
+itcl::body Rappture::XyLegend::UnmapHidden {} {
+    $_graph configure -unmaphiddenelements $_unmapHidden
+}
+
 itcl::body Rappture::XyLegend::SelectAll { } {
     foreach node [$_tree children 0] {
@@ -618 +628 @@
     }
 }
+
+#
+# BuildPopup --
+#
+#
+itcl::body Rappture::XyLegend::BuildPopup { popup } {
+    set m $popup
+    blt::combomenu $popup \
+        -yscrollbar $m.ys \
+        -xscrollbar $m.xs -height { 0 2.5i }
+    blt::tk::scrollbar $m.xs
+    blt::tk::scrollbar $m.ys
+    $m add -text "Hide" -command [itcl::code $this Hide] 
+    $m add -text "Show" -command [itcl::code $this Show] 
+    $m add -text "Toggle" -command [itcl::code $this Toggle] 
+    $m add -text "Unmap Hidden" -command [itcl::code $this UnmapHidden] \
+        -variable [itcl::scope _unmapHidden] \
+        -type checkbutton
+    $m add -type separator 
+    $m add -text "Lower" -command [itcl::code $this Lower] 
+    $m add -text "Raise" -command [itcl::code $this Raise] 
+    $m add -type separator 
+    $m add -text "Average" -command [itcl::code $this Average]
+    $m add -text "Difference" -command [itcl::code $this Difference]
+    $m add -type separator 
+    $m add -text "Recolor" -command [itcl::code $this Recolor]
+    $m add -text "Rename" -command [itcl::code $this Rename]
+    $m add -text "Delete" -command [itcl::code $this Delete]
+    set _unmapHidden [$_graph cget -unmaphiddenelements]
+    set cmd [itcl::code $this Toggle current]
+    Check $m
+}
+
+#
+# PopupMenu --
+#
+#       Builds the popup associated with the sensor map.  The menu
+#       is first destroyed if one exists.  This is because the menu
+#       bindings callbacks are specific to the current map.  Destroying 
+#       the menu automatically removes the bindings and callbacks.
+#
+itcl::body Rappture::XyLegend::PopupMenu { x y } {
+    set m .xylegendpopup
+    if { [winfo exists $m]  } {
+        destroy $m
+    }
+    BuildPopup $m
+    blt::ComboMenu::popup $m $x $y
+}