in reply to Re^2: Perl/Tk and exit(0)
in thread 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.

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]

      missing ); on replacement statement;

[reply]

        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]

In Section Seekers of Perl Wisdom