91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
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 {
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}]
|
>
>
>
|
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}]
|