| Subject: | PATCH: -height argument is ignored |
It seems to me that Tk::Wizard ignores the -height argument (the window is sized just big enough to contain the widgets on the first page). This patch fixes this.
diff -c /PROJECTS/perlmod/Tk-Wizard-Bases-1.06/Wizard.pm.9.topheaderwhite /PROJECTS/perlmod/Tk-Wizard-Bases-1.06/Wizard.pm
*** /PROJECTS/perlmod/Tk-Wizard-Bases-1.06/Wizard.pm.9.topheaderwhite Thu Feb 10 10:26:06 2005
--- /PROJECTS/perlmod/Tk-Wizard-Bases-1.06/Wizard.pm Fri Feb 11 11:18:28 2005
***************
*** 764,770 ****
if ($args->{-wait}){
$frame->after($args->{-wait},sub{$self->forward});
}
!
return $frame->pack(qw/-side top -anchor n -fill x/);
} # end blank_frame
--- 764,770 ----
if ($args->{-wait}){
$frame->after($args->{-wait},sub{$self->forward});
}
! $frame->packPropagate(0);
return $frame->pack(qw/-side top -anchor n -fill x/);
} # end blank_frame
***************
*** 966,974 ****
my $dirs = $frame->Scrolled ( "DirTree",
-scrollbars => 'osoe',
-selectbackground => "navy", -selectforeground => "white",-selectmode =>'browse',
! -width=>40, height=>10,
-browsecmd => sub { ${$args->{-variable}}=shift },
! )->pack(-fill=>"x",-padx=>10, -pady=>0,);
$dirs->configure(-background=>$self->cget("-background")) if $self->cget("-background");
$frame->Frame(-height=>10)->pack();
--- 966,974 ----
my $dirs = $frame->Scrolled ( "DirTree",
-scrollbars => 'osoe',
-selectbackground => "navy", -selectforeground => "white",-selectmode =>'browse',
! -width=>40, -height=>10,
-browsecmd => sub { ${$args->{-variable}}=shift },
! )->pack(-fill=>"both",-padx=>10, -pady=>0, -expand=>1);
$dirs->configure(-background=>$self->cget("-background")) if $self->cget("-background");
$frame->Frame(-height=>10)->pack();