Hello Geoff,
try this code:
# DateEntry_einfach.pl erstellt eine einfache Datumseingabe
use Tk;
use Tk::DateEntry;
$Datum = '01.01.2006'; # Startwert
$mw = MainWindow->new();
$mw->geometry( '130x40' );
$entry = $mw->DateEntry( -textvariable=>\$Datum,
-todaybackground => 'yellow',
)->pack;
MainLoop;
print "$Datum\n";
I hope it is helpful
Manfred
Von: Geoff Horsnell [mailto:ge...@horsnell.freeserve.co.uk]
Gesendet: Montag, 2. April 2012 20:11
An: perl-win32-users@listserv.activestate.com
Betreff: Perl graphics and calendars
Does anyone know if Perl has a means of generating a pop-up month for
selecting a date in graphics? I am sure that there is a library function
somewhere that will allow me to do this.
Many thanks
Geoff Horsnell
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
