Problème Bind Perl/Tk

Bonjour,
actuellement en train de développer un projet, je me suis retrouvé devant un problème. En effet, lorsque je veux faire un "bind" sur un des cadres de ma fenêtre, je n'obtiens aucune réponse, alors que cela marche si le "bind" est fait sur toute la fenêtre.

Voici le bout de code concerné :

Code:

---

$cadre_grille -> bind ("<ButtonPress-1>", [\&Clique, Ev('x'), Ev('y'), 1]);

---

J'ai aussi essayé de le faire sur le canvas contenu dans le cadre, mais pas mieux.

De plus, j'ai voulu créer une variable grâce à un radiobutton, mais quand je veux l'appelée avec le "bind", j'obtiens toujours la variable à son état de départ, même quand elle est modifiée.

J'avais essayé ceci :

Code:

---

[\&Clique, Ev('x'), Ev('y'), $taille]

---

Tu t'y es juste mal pris. Donc avant de t'aider, faudrait me dire ce que tu veux exactement et me donner un code que tu as écrit qui ne fonctionne pas.

alors, mon but est de faire en sorte que quand je clique dans la fenêtre, qui est juste composée d'un canvas je récupère la position de la souris avec les Ev('x') et Ev('y') et je trace une carré de taille $taille.

Pour le code, le voici :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

#! /usr/bin/perl -w   use strict; use warnings; use Tk;   my $taille = 10;   my $fenetre = new MainWindow (); my $caneva = $fenetre -> Canvas ( -width => 400 , -height => 400) -> pack ( ) ; $fenetre -> Entry (-textvariable => \$taille) -> pack (); $fenetre -> bind ("<ButtonPress-1>", [\&Clique, Ev('x'), Ev('y'), $taille]);   sub Clique { my ($z,$x,$y,$long) = @_; $caneva -> create ('rectangle',$x-$long,$y-$long,$x+$long,$y+$long, -fill => 'blue'); }   MainLoop ();

---

quand je modifie la valeur dans le "entry", j'obtiens toujours des carrés de 10 de taille

au lieu de

Code:

---

$fenetre -> bind

---

Tu dois écrire

Code:

---

$fenetre->Tk::bind

---

et voir même

Code:

---

$caneva->Tk::bind

---

pour être plus propre car la finalité est de tracer un rectangle dans le canvas et non une portion de la fenêtre non canvas.

merci, cela résous mon premier problème, cependant, j'ai toujours un problème avec la taille :)

Pour la taille, c'est normal car tu passes à ta fonction la valeur de $taille. Et elle quand cette dernière change, ta procédure ne le sait pas car elle n'a eu que la valeur. Le principe est de passer la référence de la variable $taille. Ainsi, au changement de la valeur de $taille, ta fonction le saura étant donnée qu'elle contiendra l'adresse mémoire de $taille (via un déférencement).

Voici ton code un changé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

#!/usr/bin/perl use strict; use warnings; use Tk;   my $taille = 10;   my $fenetre = new MainWindow( -background => 'red' ); my $caneva = $fenetre->Canvas( -width => 400, -height => 400, -background => 'snow', -borderwidth => 2 )->pack( qw/-fill both -expand 1/ ); $fenetre->Entry( -textvariable => \$taille )->pack();   # Je passe la référence à $taille $caneva->Tk::bind( "<ButtonPress-1>", [ \&Clique, Ev('x'), Ev('y'), \$taille ] );   sub Clique { my ( $widget, $x, $y, $ref_taille ) = @_;   # Dereférence la taille my $long = ${$ref_taille}; $caneva->create( 'rectangle', $x - $long, $y - $long, $x + $long, $y + $long, -fill => 'blue' ); }   MainLoop();

---

cela fonctionne très bien, merci beaucoup :)