Discussion :

[strach]

Bonjour à tous

Voilà j'ai un petit soucis, je crée une zone de saisi avec :

Code :

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

$reponse = $fenetre -> Entry('-textvariable'   =>   \$var);

puis un bouton "envoi" qui lance une fonction envoi() qui traite $var :

Code :

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

1
2
3
4
$bouton1 = $fenetre -> Button (
                    '-text'   =>   'Envoyer',
                    '-command'   =>  [\&envoi]
                    );

Jusque là pas de problème, mais je voudrais que l'appuie sur la touche "entrée" dans la zone de saisie fasse pareil que l'appuie sur le bouton, c'est à dire lance la fonction envoi().

D'après mes recherches il semble que ce soit un job pour bind, mais je n'y arrive pas!!

Si quelqu'un a une idée.

Merci

[2Eurocents]

J'aurais essayé ça ...

Code :

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

$bouton1->bind('<Control-Keypress-Enter>', \&envoi) ;

Non ?

Qu'as tu essayé, avec bind ?

[strach]

J'aurais essayé ça ...

Code :

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

$bouton1->bind('<Control-Keypress-Enter>', \&envoi) ;

Il me renvoie une erreur :

Code :

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

bad event type or keysym "Keypress" at ./wharftk.pl line 48.

C'est un probleme avec le "Control-Keypress-Enter", il me semble déjà que "Control" c'est pour la touche CTRL enfoncée et que "Keypress" c'est plutôt "KeyPress" mais cela ne change rien. Je voulais justement un truc comme ça "KeyPress-Enter" mais ça ne marche pas et je ne trouve pas de doc. Peut-être avec le code ascii de la touche entrée (c'est 13 il me semble) ?

Merci pour ta réponse.
C'est en cherchant qu'on trouve !!

[strach]

En fait le <Enter> dans bind est reservé à la souris lorsqu'elle passe sur le widget, ce n'est donc pas une bonne piste !!!

Je cherche, c'est étrange, cela devrait être un problème classique et je n'en trouve trace nul part

[strach]

Bon bin, désolé pour le dérangement, en fait c'est tout simplement :

Code :

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

 $reponse -> bind ('<Return>'  , \&envoi);

Trouvé dans la man Tk::event !!!!

Merci quand même de ta réponse, toujours très rapide (d'ailleurs tu as un autre métier que modérateur ?

[2Eurocents]

Tu as raison, le 'Control', c'est pour la touche du même nom ... c'est un modificateur de l'action.

Et le code pour la touche entrée, c'est Return ...

Il suffit donc de faire :

Code :

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

$bouton1->bind('<KeyPress-Return>', \&envoi) ;

(avec un P majuscule à KeyPress )


[Edit]Posté avant d'avoir vu que tu avais trouvé ...

N'oublie pas le tag [résolu], avec le bouton du même nom, en bas à gauche de l'interface.

Et j'ai un métier, effectivement
Mais le métier, c'est dans la semaine [/Edit]