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.