Tk::Month - Widget zur Auswahl eines Datums

Von Tk::Month kann eigentlich nur abgeraten werden. Die Defaults des Widgets sind nicht portabel, die Dokumentation ist unvollständig und schlecht und der Funktionsumfang lässt zu wünschen übrig. Eine weitaus bessere Option ist der Tk::MiniCalendar. Siehe auch: Übersicht über Widgets zur Datumsauswahl.


Perl-Quellcode

#!perl

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

my $mw = Tk::MainWindow->new(-title => "Tk::Month v$Tk::Month::VERSION");

my $parent = $mw->Frame()->pack(
	-fill => 'both',
	-expand => 1,
);

#If you want your code to be portable, your format ("fmt")
#argument should use only the conversion specifiers defined by
#the ANSI C standard (C89, to play safe).  These are
#"aAbBcdHIjmMpSUwWxXyYZ%".

my $m = $parent->Month(
	-month          => 'July',
	-year           => '2013',
	-dayformat      => '%d',
	-printformat	=> '%d %B %Y %a',
	-title          => "%b %Y",
	-navigation     => 1,
	-includeall     => 0,
	-showall        => 0,
	-first          => 1,
)->pack();


$mw->MainLoop();

exit(0);
Top