Destroy a window in button action : MainWindow « GUI « Perl





Destroy a window in button action

   

use Tk;

my $main = MainWindow->new;

$main->Button(-text => 'End',
    -command => [$main => 'destroy']
)->pack;

MainLoop;

   
    
    
  










Related examples in the same category

1.Create empty window
2.tkphone - Phone another X Display and have a line-mode conversation
3.Tk Configuration Options
4.Create two windows
5.Setting Border Width for Frame
6.Advanced Hello World program using two MainWindows
7.Adding components to the Client Area of a Window with Menu Bar