my $spec_tl = $last_action_value_l->toplevel(); ## if $spec_tl signifies a transient window, find its master ## and iconify/deiconify it. Otherwise, ic/deic $spec_tl, which ## is the master/toplevel of the $last_action_value_l button. my $spec_tl_trans = $spec_tl->transient(); # "tests" whether $spec_tl is a transient window, # saves a ref to its MainWindow if it is. ## The "pre-system" iconify $spec_tl_trans ? $spec_tl_trans->iconify() : $spec_tl->iconify(); print STDERR "spec_tl_trans:$spec_tl_trans\n" if $spec_tl_trans; my $prob_found = system "$path_of_wp $$dd_con_hr{db_filename}"; if ( $prob_found ) { warn "menu_DD_SuppDB: xls system prob $!"; $rc = 'red_40'; } ## The "post-system" deiconify $spec_tl_trans ? $spec_tl_trans->deiconify() : $spec_tl->deiconify();