Changeset 853

Timestamp:

Jan 14, 2008, 4:53:43 PM (17 years ago)

Author:

gah

Message:

added binding for histgram markers labels

File:

• trunk/gui/scripts/historesult.tcl (modified) (6 diffs)

trunk/gui/scripts/historesult.tcl

@@ -22 +22 @@
 option add *HistogramResult*y.loose 1 widgetDefault
 option add *HistogramResult*Element.relief solid widgetDefault
+option add *HistogramResult*Element.borderWidth 0 widgetDefault
 
 option add *HistogramResult.width 3i widgetDefault
@@ -67 +68 @@
     protected method _getLineMarkerOptions { style } 
     protected method _getTextMarkerOptions { style } 
+    protected method _enterMarker { g name x y text }
+    protected method _leaveMarker { g name }
 
     private variable _dispatcher "" ;# dispatcher for !events
@@ -85 +88 @@
     private variable _axisPopup    ;# info for axis being edited in popup
     common _downloadPopup          ;# download options from popup
-
+    private variable _markers
 }
                                                                                 
@@ -688 +691 @@
             set max [blt::vector expr max($yv)]
             set id [$g marker create line -coords [list $at $min $at $max]]
+            $g marker bind $id <Enter> \
+                [itcl::code $this _enterMarker $g x-$label $at $min $at]
+            $g marker bind $id <Leave> \
+                [itcl::code $this _leaveMarker $g x-$label]
             set options [_getLineMarkerOptions $style]
             if { $options != "" } {
@@ -707 +714 @@
             set max [blt::vector expr max($xv)]
             set id [$g marker create line -coords [list $min $at $max $at]]
+            $g marker bind $id <Enter> \
+                [itcl::code $this _enterMarker $g y-$label $at $min $at]
+            $g marker bind $id <Leave> \
+                [itcl::code $this _leaveMarker $g y-$label]
             set options [_getLineMarkerOptions $style]
             if { $options != "" } {
@@ -1478 +1489 @@
     }
 }
+
+itcl::body Rappture::HistogramResult::_enterMarker { g name x y text } {
+    _leaveMarker $g $name
+    set id [$g marker create text \
+                -coords [list $x $y] \
+                -anchor n \
+                -text $text]
+    set _markers($name) $id
+}
+
+itcl::body Rappture::HistogramResult::_leaveMarker { g name } {
+    if { [info exists _markers($name)] } { 
+        set id $_markers($name)
+        $g marker delete $id
+        unset _markers($name)
+    }
+}