Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re^5: Perl / Tk Calendar - advice please.

by zentara (Archbishop)
on Apr 23, 2007 at 19:48 UTC ( #611581=note: print w/replies, xml ) Need Help??


in reply to Re^4: Perl / Tk Calendar - advice please.
in thread Perl / Tk Calendar - advice please.

Yeah, that date frozen at 5/5/2005 does seem odd. I believe it is caused by the way you setup your callback on the Get button. In [] brackets, it assigns $date when first compiling, while you want it to evaluate $date at the time of the button press. It's a fine detail in Tk callbacks, and causes alot of confusion. You are not the first to get whacked :-) Try this:
my $get_button = $mw->Button( -text=>'Get', # -command=>[\&ff_get, $date, $cd ], -command => sub{ ff_get($date,$cd) } )->pack();

I'm not really a human, but I play one on earth. Cogito ergo sum a bum

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://611581]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (7)
As of 2018-07-18 12:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?















    Results (392 votes). Check out past polls.

    Notices?