Tk::Month

Dans l'article <3fbe70b7$0$2802$626a54ce@news.free.fr>, frantz.dorsemaine.
dorsemaine@free.fr a dit...

Est ce que ce module permet de récupérer le jour sur lequel on a clicker?
J'ais essayer mais je n'est pas trouvé.

Vous fixer le format de la date que vous voulez avec l'option -printformat.

Quand l'utilisateur presse sur une date dans le calendrier, la fonction
'press' est appelée avec comme arguments le titre du widget et une
référence à un tableau contenant les dates sélectionnées. Ici, je ne fait
qu'afficher la première date du tableau (c'est la seule date du tableau si
l'utilisateur sélectionne une date précise et non une semaine complète).

#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::Month;

my $mw = MainWindow->new();

my $m = $mw->Month(
-title => '%B %Y',
-printformat => '%A %d %B %Y',
-command => &press,
)->pack();
MainLoop();

sub press {
my $title = shift;
my $ra = shift;
print "$$ra[0]n";
}

__END__


--
J-L.M.