Help for this page

Select Code to Download


  1. or download this
    sub service_for_mw_button_press {
  my ($mw) = shift;
  my $top_level = $mw->Toplevel
  2. or download this
    $top_level->destroy;
undef($top_level);
$mw->deiconify;
$mw_raise;