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

by saw55 (Novice)

on Apr 03, 2020 at 04:46 UTC ( [id://11114971]=note: print w/replies, xml )

Need Help??

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.

Comment on Re^4: Perl/Tk and exit(0)

Replies are listed 'Best First'.
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
I feel kind of foolish for missing something so simple... Been there, done that, got the scars to prove it. :) Give a man a fish: `<%-{-{-{-<`	[reply] [d/l]
Re^7: Perl/Tk and exit(0) by soonix (Canon) on Apr 04, 2020 at 09:33 UTC
one possibility to find these, is sending your script through perltidy and looking at the output.	[reply]

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://11114971]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others about the Monastery: (None)

As of 2024-04-25 00:51 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found