Show a dialog box : Dialog « GUI « Perl

1. Perl
2. GUI
3. Dialog

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);
    }
}

   
    
    
  

Related examples in the same category