Now if I can just resize the Wizard box somehow to show all my text.my $user_wizard = new Tk::Wizard( -title => " User Wizard", -imagepath => "people.gif", ); $user_wizard->addPage( sub { return $user_wizard->blank_frame( -title => "Page Title", -subtitle => "Sub-title", -text => "Some text.", ); }); $user_wizard->addPage(sub{ my $bframe= $user_wizard- +>blank_frame( -title => "Welcome to the User Informati +on Wizard", -text=>"What is your name?"); my $lbfirstname = $bframe->Label(-text=>"First Name", -backgro +und=>'white')->pack; my $lbfnentry = $bframe->Entry->pack; my $lblastname = $bframe->Label(-text=>"Last Name", -backgroun +d=>'white')->pack; my $lblnentry = $bframe->Entry->pack; return $bframe; } ); $user_wizard->Show; MainLoop; __END__
There is a -resizable option but I don't know what boolean value to give it.. http://search.cpan.org/~lgoddard/Tk-Wizard-Bases-1.92/lib/Tk/Wizard.pm
my $user_wizard = new Tk::Wizard( -title => " User Wizard", -style=>'top', -imagepath => "z:\\BPP\\people.gif", -resizable=>"0", );
In reply to Re^4: Tk::Wizard content
by mikasue
in thread Tk::Wizard content
by mikasue
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |