Tk::MiniCalendar - Datum auswählen im Kalender-Widget

Tk::MiniCalendar stellt einen kleinen Kalender dar. Man kann darin zum Beispiel ein Datum auswählen. Wie ein DatePicker bzw. Time Picker.


Perl-Quellcode

#!perl

use strict;
use warnings;
use Tk;
use Tk::MiniCalendar;

my $mw = Tk::MainWindow->new();

my $frm1 = $mw->Frame->pack;  # Frame to place MiniCalendar in

my $minical = $frm1->MiniCalendar->pack;

my $frm2 = $mw->Frame->pack;  # Frame for Ok Button
my $b_ok = $frm2->Button(
	-text => "Ok",
	-command => sub {
	  my ($year, $month, $day) = $minical->date();
	  print "Selected date: $year/$month/$day\n";
	  exit;
	},
)->pack();

$mw->MainLoop();
Top