Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

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?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://611581]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (3)
As of 2018-10-18 06:49 GMT
Find Nodes?
    Voting Booth?
    When I need money for a bigger acquisition, I usually ...

    Results (99 votes). Check out past polls.