Help for this page

Select Code to Download


  1. or download this
    $mw->Button(-text => 'Exit', -command => sub {$mw->destroy})->pack;
  2. or download this
    -command => sub { $Tk::widget->toplevel->destroy }
  3. or download this
    -command => 'exit'