in reply to Line up Calendar
I'd look for existing solutions before rolling my own, since calendars are hard to get "just so". How about starting with Tk::Month?
Update for posterity: Don't use Tk::Month. It has limited functionality and doesn't appear to have been maintained in some time. I gave the above advice based on an optimistic appraisal of the module after doing a quick search on CPAN and looking at the docs.
Update: It works fine. Just keep it simple:
#!/usr/bin/perl use warnings; use strict; use Tk; use Tk::Month; my $mw = MainWindow->new(); my $month = "November"; my $year = "2006"; my $m = $mw->Month( -printformat => '%a %e', -includeall => 0, -month => $month, -year => $year, -command => sub { my ($ym, $wd) = @_; my ($month, $year) = split( /\s+/ , $ym ); my ($wday, $date) = split( /\s+/ , $wd->[0] ); print "$wday, $month $date $year\n"; }, ); $m->pack; MainLoop;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Line up Calendar
by mikasue (Friar) on Nov 21, 2006 at 18:33 UTC | |
by webfiend (Vicar) on Nov 21, 2006 at 19:54 UTC |
In Section
Seekers of Perl Wisdom