Select Code to Download

sub Show {

...
    &$old_grab;
    return $cw->{'selected_button'};
}

 
sub Popup
{
...
 $w->deiconify;
 $w->raise;
}