Select Code to Download

if ($choice eq 'rev_hist') {
    $mw->iconify;
...
    system('scp2 $rev_hist_file $destination');
    $mw->deiconify;
    return;

    my $spec_tl = $last_action_value_l->toplevel();

...
    $spec_tl_trans
        ? $spec_tl_trans->deiconify()
        : $spec_tl->deiconify();