Changeset 1130 for trunk/gui

Timestamp:

Aug 26, 2008, 6:08:24 PM (16 years ago)

Author:

gah

Message:

fix xylegend raise/lower

File:

• trunk/gui/scripts/xylegend.tcl (modified) (4 diffs)

trunk/gui/scripts/xylegend.tcl

@@ -164 +164 @@
     set im [image create photo]
     $graph_ legend icon $elem $im
-    set data(label) $label
     set data(show) $hide
-    set data(image) @$im
     set data(delete) [expr { $flags == "-delete" }]
     set node [$tree_ insert root -at 0 -label $elem -data [array get data]]
@@ -189 +187 @@
         Add $elem $label
     }
-    $itk_component(legend) configure -tree $tree_
-    focus $itk_component(legend)
     $itk_component(legend) open -recurse root
 }
@@ -196 +192 @@
 itcl::body Rappture::XyLegend::Deactivate {} {
     foreach node [$tree_ children root] {
-        set image [$tree_ get $node "image"]
-        set image [string trimleft $image "@"]
-        image delete $image
         $tree_ delete $node
     }
@@ -292 +285 @@
     }
     set pos [$tree_ degree 0]
+
     foreach elem $elements {
         incr pos -1
         $tree_ move [$tree_ index $elem] 0 -at $pos
     }
+
     set list {}
     foreach elem [$graph_ element show] {