I have a script I run on the cygwin port of perl

This is perl, v5.6.1 built for cygwin-multi

Here are the pertinent snippets from it ...

...
my $top     = MainWindow->new();
my $frame     = $top->Frame();
my $can = $top->Canvas( 
    -width => $width, 
    -height=> $height, 
    -background=>$background );

...
$can->packAdjust( -side => 'left', -fill => 'both', -delay => 1 );
$frame->pack( 
    -side     => 'left', 
    -fill     => 'y', 
    -expand => 'y', 
    -anchor => 'w' );

my $mbutton = $frame->Button( 
    -relief     => "groove", 
    -text         => "m = ", 
    -command    => \&incM  )->pack( anchor => 'w' );
my $mentry = $frame->Entry( 
    -width     => 10,
    -textvariable     => \$M)->form( 
    -left => [$mbutton,0] );
...
[download]

Do you need to call $widget->packAdjust?