Methode Entry avec Perl/Tk

Bonjour à tous

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

Code:

---

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

---

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

Code:

---

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

J'aurais essayé ça ...

Code:

---

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

---

Non ?

Qu'as tu essayé, avec bind ?

Citation:

---

Envoyé par 2Eurocents

J'aurais essayé ça ...

Code:

---

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

---

---

Il me renvoie une erreur :

Code:

---

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 !!

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 :(

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

Code:

---

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

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:

---

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

---

(avec un P majuscule à KeyPress :oops:)


[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 :lol:[/Edit]