Changeset 3765 for branches/1.3/gui/scripts/numberresult.tcl

Timestamp:

Jul 10, 2013, 12:43:48 PM (11 years ago)

Author:

gah

Message:

fix drawing default coordinates, rewrite of xyresult scaling, sync with trunk

File:

• branches/1.3/gui/scripts/numberresult.tcl (modified) (3 diffs)

branches/1.3/gui/scripts/numberresult.tcl

@@ -95 +95 @@
     protected method GetValue {dataobj {which both}}
     protected method GetInfo {what dataobj {which both}}
+    private method ResetLegend {}
 
     private variable _dispatcher "" ;# dispatcher for !events
@@ -243 +244 @@
     }
     pack $itk_component(legend) -expand yes -fill both
-    after idle [subst {
-        update idletasks
-        $itk_component(legend) reset 
-    }]
+    after idle [itcl::code $this ResetLegend]
+
     # quick-and-dirty zoom functionality, for now...
     Blt_ZoomStack $itk_component(plot)
@@ -1564 +1563 @@
     }
 }
+
+#
+# ResetLegend --
+#
+itcl::body Rappture::NumberResult::ResetLegend {} {
+    set g $itk_component(plot)
+    update idletasks
+    $itk_component(legend) reset [$g element show]
+}