Bind sur touches clavier

Bonjour,

j'ai voulu réaliser un bind dans une de mes fenêtre qui devait se déclancher lorsque j'appuyais sur Ctrl-Alt-m :

Code:

---

$fenetre -> Tk::bind ("<Control-Alt-KeyPress-m>", [\&Func,$x]);

---

mais je n'arrive pas à obtenir le résultat espéré.
Que dois-je faire pour que ça marche ?

Ceci fonctionne chez moi :

Code:

---

$mw->Tk::bind("<Control-Alt-KeyPress-m>", sub { print "bonjour\n";} );

---

c'est bizarre chez moi cela ne marche pas, pourtant il n'y a rien qui pourrait faire que cela ne marche pas :

Code:

---

1 2 3 4 5 6 7 8 9 10

#! /usr/bin/perl -w   use strict; use warnings; use Tk;   my $fenetre = new MainWindow (); $fenetre -> Tk::bind("<Control-Alt-KeyPress-m>", sub { print "bonjour\n";} );   MainLoop ();

---

il y a peut être un problème autre part mais je ne sais pas où

mystère :D. Tu utilises quelle version de Perl et Tk ?

j'utilise perl 5.10.1 et la version de tk installée grâce au ppm