Thanks for the reply, but I could use some clarification if you could. Are you saying I should replace
$svBtn = $mw->Button( -text => "SAVE", -command => sub {&checkDays; exit(0);});
with
$svBtn = $mw->Button( -text => "SAVE", -command => sub {&checkDays; $mw->after(5000, sub {exit(0)});}
When I do that I get an error saying "Scalar found where operator expected" at the next line, near "$mw" I guess I am sort of lost.
In reply to Re^4: Perl/Tk and exit(0)
by saw55
in thread Perl/Tk and exit(0)
by saw55
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |