Re^3: Perl/Tk and exit(0)

All UI activity in Tk occurs in the Tk event loop. You are exiting the program from an event handler before returning control to the event loop. Try replacing that handler with sub {&checkDays; $mw->after(5000, sub {exit(0)});} and see Tk::after for more details.

Comment on Re^3: Perl/Tk and exit(0) Download Code

Replies are listed 'Best First'.
Re^4: Perl/Tk and exit(0) by saw55 (Novice) on Apr 03, 2020 at 04:46 UTC
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.	[reply]
Re^5: Perl/Tk and exit(0) by tybalt89 (Monsignor) on Apr 03, 2020 at 06:37 UTC
missing ); on replacement statement;	[reply]
Re^6: Perl/Tk and exit(0) by saw55 (Novice) on Apr 03, 2020 at 11:13 UTC
Thanks so much! I feel kind of foolish for missing something so simple--I should have turned on "highlight matching brackets" on my editor.	[reply]
Re^7: Perl/Tk and exit(0) by AnomalousMonk (Archbishop) on Apr 03, 2020 at 20:33 UTC
Re^7: Perl/Tk and exit(0) by soonix (Canon) on Apr 04, 2020 at 09:33 UTC


No such thing as a small change
	PerlMonks