Changeset 3764 for trunk

Timestamp:

Jul 9, 2013 8:20:10 PM (11 years ago)

Author:

gah

Message:

fix: change in XyLegend::reset method

Location:

trunk/gui/scripts

Files:

• barchartresult.tcl (modified) (4 diffs)
• histogramresult.tcl (modified) (4 diffs)
• numberresult.tcl (modified) (3 diffs)

trunk/gui/scripts/barchartresult.tcl

@@ -108 +108 @@
     protected method _leaveMarker { g name }
     private method _formatTickLabel { w value } 
+    private method ResetLegend {}
 
     private variable _dispatcher "" ;# dispatcher for !events
@@ -256 +257 @@
     }
     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...
@@ -798 +796 @@
         }
     }
-    $itk_component(legend) reset 
+    ResetLegend
 }
 
@@ -1627 +1625 @@
     return $label
 }
+
+#
+# ResetLegend --
+#
+itcl::body Rappture::BarchartResult::ResetLegend {} {
+    set g $itk_component(plot)
+    update idletasks
+    $itk_component(legend) reset [$g element show]
+}

trunk/gui/scripts/histogramresult.tcl

@@ -106 +106 @@
     protected method LeaveMarker { g name }
     protected method FormatLabels { g value }
+    private method ResetLegend {}
 
     private variable _dispatcher "" ;# dispatcher for !events
@@ -252 +253 @@
     }
     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...
@@ -822 +820 @@
     }
     $g configure -invertxy $invert
-    $itk_component(legend) reset 
+    ResetLegend
 }
 
@@ -1610 +1608 @@
     return " "
 }
+
+#
+# ResetLegend --
+#
+itcl::body Rappture::HistogramResult::ResetLegend {} {
+    set g $itk_component(plot)
+    update idletasks
+    $itk_component(legend) reset [$g element show]
+}

trunk/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]
+}