Re^2: Line up Calendar

[mikasue]

How do you use Tk::Month? This code just hangs...

use strict;
use warnings;
use Tk;
use Tk::Month;


my $MW = MainWindow->new(); 
$MW->geometry('300x200+50+50');

my $m = $MW->Month(
                -month          => 'November',
                -year           => '2006',
                -title          => '%b %y',
                -command        => \&press,
                -printformat    => '%e',
                -navigation     => [0|1],
                -includeall     => [0|1],
                -showall        => [0|1],
                -first          => [0|1|2|3|4|5|6],
        )->pack();


MainLoop;

[webfiend]

I don't get hanging, but I don't get a nice calendar either. It looks like Tk::Month is old, unmaintained, and broken. Too bad, because it looks like it might have been just the thing.

Back to the drawing board.

You want to show a calendar, but what purpose does it serve? Are you trying to do anything with the calendar, or just show the dates of the current month as a reference point?

Update: I was throwing too much code at it. Tk::Month works fine if I keep it simple. See my original reply to this thread for details.