Mega Code Archive

 

Categories / Perl / GUI

 

Show a dialog box

use Tk; $main = MainWindow->new(); $dialog = $main->DialogBox(     -title => "Dialog box",     -buttons => ["OK", "Cancel"] ); $entry = $dialog->add(     "Entry", -width => 40 )->pack; $main->Button(      -text => "Show dialog box",     -command => \&show )->pack; $text1 = $main->Text (     -width => 40,      -height => 2 )->pack(); MainLoop; sub show  {     $result = $dialog->Show;     if ($result eq "OK") {         $text1->delete('1.0','end');         $text1->insert('end', $entry->get);     } }