Changeset 1845 for branches/blt4/gui
- Timestamp:
- Jul 26, 2010, 9:04:39 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/blt4/gui/scripts/tooltip.tcl
r1789 r1845 38 38 itk_option define -message message Message "" 39 39 40 constructor {args} { 41 # defined below 42 } 40 constructor {args} { # defined below } 43 41 44 42 public method show {where} … … 106 104 # ---------------------------------------------------------------------- 107 105 itcl::body Rappture::Tooltip::show {where} { 108 109 106 set hull $itk_component(hull) 110 107 set signx "+" … … 124 121 error "bad position \"$where\": should be widget+x,y, or @x,y" 125 122 } 123 126 124 if {[string index $itk_option(-message) 0] == "@"} { 127 125 set cmd [string range $itk_option(-message) 1 end] … … 156 154 # Make sure the tooltip doesn't go off screen. 157 155 # 158 159 156 update idletasks 160 161 157 if {$signx == "+"} { 162 158 if {$xpos+[winfo reqwidth $hull] > [winfo screenwidth $hull]} { … … 208 204 } 209 205 } 206 210 207 # 211 208 # Finally, put it up. … … 213 210 wm geometry $hull $signx$xpos$signy$ypos 214 211 update 212 215 213 wm deiconify $hull 216 214 raise $hull
Note: See TracChangeset
for help on using the changeset viewer.