I still don't know what your overall software is supposed to do. It sounds like you want to get some inforamtion from a popup, then feed the results from the popup to some other frame?
Tk widgets are like complex jigsaw puzzle pieces. They have to be fit together properly, or they won't work.
Maybe you could get the result from a DialogBox, then feed that output to the Wizard? Maybe use the $letter from this script, and use that for your -text option in the Wizard?
#!/usr/bin/perl use Tk; use Tk::DialogBox; my $mw = MainWindow->new; my $dialog = $mw->DialogBox( -buttons => [qw/Ok Cancel/], -title => "Enter New Value" ); my $dialogE = $dialog->add("Entry"); $dialogE->pack(qw/-padx 10 -pady 10/); my $button = $mw->Button( -text => "Get new value...", -command => [ \&getNewValue, $dialog, $entry ] )->pack(qw/-side left -padx 10/); MainLoop; sub getNewValue { my ( $db, $entry ) = @_; my $dbEntry = $db->Subwidget('entry'); ## Clear the Entry before showing the dialog $dbEntry->delete( 0, 'end' ); ## Determine whether or not the user hit "Ok" my $button = $db->Show(); if ( $button eq "Ok" ) { my $letter = $dbEntry->get(); print "$letter was submitted\n"; } } __END__
In reply to Re^3: Tk::Wizard content
by zentara
in thread Tk::Wizard content
by mikasue
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |