![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
use Tk; use Tk::Adjuster;
$widget->packAdjust([pack options]);
packAdjust
calls pack on the widget and then creates an instance of Tk::Adjuster and
packs that ``after'' the widget. Tk::Adjust is a Frame containing a
``line'' and a blob.
Dragging either with Mouse Button-1 results in a line being dragged to indicate new size. Releasing Button submits GeometryRequests on behalf of the widget which will cause the packer to change widget's size.
If Drag is done with Shift button down, then GeometryRequests are made in ``real time'' so that text-flow effects can be seen, but as a lot more work is done behaviour may be sluggish.
If widget is packed with -side => left or -side => right then width is adjusted. If packed -side => top or -side => bottom then height is adjusted.
packPropagate
is turned off for the master window to prevent adjustment changing overall
window size. Similarly packPropagate
is turned off for the managed widget if it has things packed inside it.
This is so that the GeometryRequests that Tk::Adjuster are not overriden by
pack.
$CommentsMailTo = "perl5@dcs.ed.ac.uk"; include("../syssies_footer.inc");?>