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] );
...
Do you need to call $widget->packAdjust?
|