Changeset 1845 for branches/blt4/gui

Timestamp:

Jul 26, 2010 9:04:39 AM (14 years ago)

Author:

gah

Message:

 

File:

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

branches/blt4/gui/scripts/tooltip.tcl

@@ -38 +38 @@
     itk_option define -message message Message ""
 
-    constructor {args} { 
-        # defined below 
-    }
+    constructor {args} { # defined below }
 
     public method show {where}
@@ -106 +104 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::Tooltip::show {where} {
-
     set hull $itk_component(hull)
     set signx "+"
@@ -124 +121 @@
         error "bad position \"$where\": should be widget+x,y, or @x,y"
     }
+
     if {[string index $itk_option(-message) 0] == "@"} {
         set cmd [string range $itk_option(-message) 1 end]
@@ -156 +154 @@
     # Make sure the tooltip doesn't go off screen.
     #
-    
     update idletasks
-
     if {$signx == "+"} {
         if {$xpos+[winfo reqwidth $hull] > [winfo screenwidth $hull]} {
@@ -208 +204 @@
         }
     }
+
     #
     # Finally, put it up.
@@ -213 +210 @@
     wm geometry $hull $signx$xpos$signy$ypos
     update
+
     wm deiconify $hull
     raise $hull