Discussion :

[Perl53]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

$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 ?

[djibril]

Ceci fonctionne chez moi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Perl53]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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ù

[djibril]

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

[Perl53]

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