Changeset 413 for trunk/gui/scripts/tooltip.tcl

Timestamp:

Apr 26, 2006 6:42:46 PM (18 years ago)

Author:

mmc

Message:

• Added <description> capability to output objects, including axes.

• Fixed the ResultSet? so that it is more compact and supports the simulation number as a parameter. This is useful when there are datasets with wildly varying parameters.

File:

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

trunk/gui/scripts/tooltip.tcl

@@ -59 +59 @@
     bind RapptureTooltip <KeyPress> \
         [list ::Rappture::Tooltip::tooltip cancel]
-
-    private common icons
-    set dir [file dirname [info script]]
-    set icons(cue) [image create photo -file [file join $dir images cue24.gif]]
 }
 
@@ -141 +137 @@
 
     # strings can't be too big, or they'll go off screen!
-    if {[string length $mesg] > 1000} {
-        set mesg "[string range $mesg 0 1000]..."
-    }
     set pos 0
     ::for {set i 0} {$pos >= 0 && $i < 20} {incr i} {
@@ -152 +145 @@
         set mesg "[string range $mesg 0 $pos]..."
     }
+    if {[string length $mesg] > 1000} {
+        set mesg "[string range $mesg 0 1500]..."
+    }
     $itk_component(text) configure -text $mesg
 
     #
-    # Make sure the tooltip doesn't go off screen.  Then, put it up.
+    # Make sure the tooltip doesn't go off screen.
     #
     update idletasks
@@ -182 +178 @@
     }
 
+    #
+    # Will the tooltip pop up under the mouse pointer?  If so, then
+    # it will just disappear.  Doh!  We should figure out a better
+    # place to pop it up.
+    #
+    set px [winfo pointerx $hull]
+    set py [winfo pointery $hull]
+    if {$px >= $xpos && $px <= $xpos+[winfo reqwidth $hull]
+          && $py >= $ypos && $py <= $ypos+[winfo reqheight $hull]} {
+
+        if {$px > [winfo screenwidth $hull]/2} {
+            set signx "-"
+            set xpos [expr {[winfo screenwidth $hull]-$px+4}]
+        } else {
+            set signx "+"
+            set xpos [expr {$px+4}]
+        }
+        if {$py > [winfo screenheight $hull]/2} {
+            set signy "-"
+            set ypos [expr {[winfo screenheight $hull]-$py+4}]
+        } else {
+            set signy "+"
+            set ypos [expr {$py+4}]
+        }
+    }
+
+    #
+    # Finally, put it up.
+    #
     wm geometry $hull $signx$xpos$signy$ypos
     update
@@ -276 +301 @@
                 error "wrong # args: should be \"tooltip pending widget ?@x,y?\""
             }
-            set widget [lindex $args 0]
+            set tag [lindex $args 0]
             set loc [lindex $args 1]
 
-            if {[winfo exists $widget]} {
-                .rappturetooltip configure -message $catalog($widget)
+            # tag name may be .g-axis -- get widget ".g" part
+            set widget $tag
+            if {[regexp {^(\.[^-]+)-[^\.]+$} $widget match wname]} {
+                set widget $wname
+            }
+
+            if {[winfo exists $widget] && [info exists catalog($tag)]} {
+                .rappturetooltip configure -message $catalog($tag)
                 if {[string index $loc 0] == "@"} {
                     .rappturetooltip show $loc
@@ -381 +412 @@
 # create a tooltip widget to show error cues
 Rappture::Tooltip .rappturetoolcue \
-    -icon $Rappture::Tooltip::icons(cue) \
+    -icon [Rappture::icon cue24] \
     -background black -outline #333333 -foreground white