in reply to
Re: Line up Calendar
in thread Line up Calendar
How do you use Tk::Month? This code just hangs...
my $MW = MainWindow->new();
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],
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.
The moon would crash into the Earth
The moon would breakup at the Roche limit
The wire would turn the Earth into a giant electromagnet
The Earth would turn into a giant yo-yo.
The moon would orbit every ~24 hours, significantly changing the lunar calendar
The centripetal force would rip out the Earth's core
All man-made satellites would be destroyed, causing great havoc
Moon landings would become significantly easier
The rope or wire would break, no matter how strong it was
The Vulcans would show up for First Contact causing yet another revision to the timeline
The Galactic Police would snip the rope and put the Earth on probation
Some idiot would get terrible, terrible, rope burn
We finally get those golf balls back
Results (693 votes),