2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
|
2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
|
+
-
+
|
if {$wx < 0} {set wx 0}
}
}
# Does the balloon fit within the screen?
if {$rWidth > [winfo screenwidth $top]} {
# How many rows does it take?
# Adjust ScreenWidth a bit to accomodate for padding.
set rows [expr {ceil(double($rWidth) / [winfo screenwidth $top])}]
set rows [expr {ceil(double($rWidth) / ([winfo screenwidth $top]-10))}]
# Add rows and fill screen width
$top.balloon.t1 configure -height $rows
$top.balloon.t2 configure -height $rows
# Let geometry requests propagate
update idletasks
wm geometry $top.balloon \
[winfo screenwidth $top]x[winfo reqheight $top.balloon]
|