http://qs321.pair.com?node_id=604647


in reply to Perl / Tk Calendar - advice please.

Hi jdtoronto,

Have you considered using Tk::Month?

There's a simple example of how to use it here.

Even if you decide to go a similar (or different) route, I'd recommend trying it out, as it might give you some good ideas.

You will probably want to play around with printformat, though.  The value used in the node I referred to above doesn't send the day of the month to the anonymous subroutine.


s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/