Differences From Artifact [4abfe504fe]:
- File eskil.vfs/lib/psballoon/psballoon.tcl — part of check-in [0fbbd7316a] at 2011-05-10 22:40:07 on branch trunk — Added balloon help on toolbuttons. Rearranged images. (user: peter.spjuth@gmail.com size: 3571)
To Artifact [6f516a1919]:
- File eskil.vfs/lib/psballoon/psballoon.tcl — part of check-in [2795132d5b] at 2012-02-19 22:33:49 on branch trunk — Improvements to 3-way merge. (user: peter size: 3697)
| ︙ | |||
91 92 93 94 95 96 97 98 99 100 101 102 103 104 | 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 | + + + |
set msg [$w cget -text]
set iw [font measure $font $msg]
}
}
#Don't create a balloon if the text is fully visible.
set create [expr {$iw > $ww - 8}]
} else {
if {[string index $msg 0] eq "\["} {
set msg [subst -novariables -nobackslash $msg]
}
set iw [font measure $font $msg]
}
if {$create} {
set x [expr {[winfo rootx $w] + $ix}]
set y [expr {[winfo rooty $w] + $iy + $ih + 2}]
if {$x + $iw + 8 > [winfo screenwidth $w]} {
set x [expr {[winfo screenwidth $w] - $iw - 8}]
|
| ︙ |