Tk et Canvas

Version imprimable

Tk et Canvas

Bonjour,

Mon but principal étant de dessiner, j'essaye de lancer un canvas, mais après quelques modifications, je bloque quand même.
Le script en perl 5 (introduction à Perl/Tk)

Code:

1
2
3
4
5
6
7
8
9
 
$c = $mw->Scrolled("Canvas")->pack();
$canevas = $c->Subwidget("canvas");
$canevas->Tk::bind("<Button-1>", [ \&affiche_xy, Ev('x'), Ev('y') ]);
sub affiche_xy {
my ($canev, $x, $y) = @_;
print "(x,y) = ", $canev->canvasx($x), ", ",
$canev->canvasy($y), "\n";
}

Le mien

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!/opt/rakudo-star/install/bin/perl6
 
use Inline::Perl5;
use Tk:from<Perl5>;
 
sub getXY($canev,$x,$y) {
    say $canev.canvasx($x), $canev.canvasy($y);
}
 
my $window=MainWindow.new();
$window.title('KanDeLa');
 
my $drawing=$window.Scrolled('Canvas','-width',400,'-height',300,'background','white').pack();
 
my $plan=$drawing.Subwidget("canvas");
$plan.createOval(0,0,150,150);
$plan.CanvasBind("<Button-3>", {say('ok')});
$plan.CanvasBind("<Button-1>",  <getXY  Ev('x') Ev('y')>);
 
MainLoop;

Le click avec le bouton droit (3) fonctionne, mais pas avec celui avec le bouton gauche (1)
J'ai comme message d'erreur

Code:

1
2
3
4
5
6
 
Tk::Error: Failed to AUTOLOAD 'Tk::Canvas::getXY' at -e line 0.
 Carp::croak at /usr/share/perl/5.24/Carp.pm line 167
 Tk::Widget::__ANON__ at /usr/lib/x86_64-linux-gnu/perl5/5.24/Tk/Widget.pm line 347
 <Button-1>
 (command bound to event)

Une idée ?

PS : J'ai aussi des Warning, je pense non-bloquant pour ce que je veux faire, est-ce corrigeable ?

Code:

1
2
3
4
 
Use of inherited AUTOLOAD for non-method Tk::Frame::AddScrollbars() is deprecated at /usr/lib/x86_64-linux-gnu/perl5/5.24/Tk/Widget.pm line 1284.
Use of inherited AUTOLOAD for non-method Tk::Frame::freeze_on_map() is deprecated at blib/lib/Tk/Frame.pm (autosplit into blib/lib/auto/Tk/Frame/AddScrollbars.al) line 233.
Use of inherited AUTOLOAD for non-method Tk::Frame::queuePack() is deprecated at blib/lib/Tk/Frame.pm (autosplit into blib/lib/auto/Tk/Frame/scrollbars.al) line 357.

08/12/2018, 17h48
Lolo78
Bonjour,

je n'ai plus utilisé TK depuis presque 20 ans et ce n'était même pas en Perl à l'époque. Je ne suis donc pas vraiment en mesure de t'aider, mais je proposerai peut-être quand même une toute petite piste: je constate que la définition de la fonction getXY a trois paramètres et que l'appel:
Code:

1 2 $plan.CanvasBind("<Button-1>", <getXY Ev('x') Ev('y')>);
semble ne passer que deux paramètres. Comme getXY est une subroutine et non une méthode, elle ne peut prendre un invoquant comme paramètre implicite.

Voir aussi si préfixer getXY avec un sigil & dans l'appel à la méthode CanvasBind améliore les choses.

Sinon, un autre toolkit graphique a été (partiellement) porté sur Perl 6: gtk. Peut-être offre-t-il ce dont tu as besoin...
08/12/2018, 22h45
alainbb

Bonjour,

Je ne suis pas sûr de ce que je dis, mais je pense qu'on passe en paramètre une fonction getXY (affiche_xy en perl5) et autre chose... Ev(x), et que tk appelle le getXY en passant le canvas et les valeurs de x et de y.
J'ai essayé le & devant mais ça ne fonctionne pas et semble congruant à ce que j'ai pu lire du passage de 5 à 6 où le & ne serait plus nécessaire voir interdit.
Concernant gtk, il vient récement d'inclure le canvas, mais pas encore la détection du pointeur du souris et du click (interactivité).

Merci quand même.
09/12/2018, 09h00
alainbb
Bonjour,

Et comme indiqué dans le message d'erreur, il ne trouve pas getXY

Code:

Tk::Error: Failed to AUTOLOAD 'Tk::Canvas::getXY' at -e line 0.

donc, si je mets cela dans Tk/Canvas.pm
Code:

1 2 3 4 5 6 7 8 sub getXY { print("essai @_ \n"); my $canev=shift; print $canev.canvasx(shift), $canev.canvasy(shift),"\n"; return; }
Le premier print fonctionne, mais le deuxième ne trouve pas Ev

Code:

Tk::Error: Can't locate object method "WidgetMethod" via package "Ev('x')" (perhaps you forgot to load "Ev('x')"?) at /usr/lib/x86_64-linux-gnu/perl5/5.24/Tk.pm line 251.

Et j'imagine qu'il ne trouve pas Ev, car il n'est pas appelé du bon endroit.

J'imagine qu'il faut dire à Tk::bind, que la fonction qu'on passe est dans le programme principal, et non dans Canvas;pm.

Une idée ?

Citation:

Envoyé par alainbb

J'ai essayé le & devant mais ça ne fonctionne pas et semble congruant à ce que j'ai pu lire du passage de 5 à 6 où le & ne serait plus nécessaire voir interdit.

Non, non seulement il n'est pas interdit, mais il est parfois indispensable. Voici un exemple sous le REPL, dans lequel je définis une fonction deux-fois qui exécute deux fois la fonction qui lui est passée en paramètre, puis une fonction hello que je vais passer à la première fonction:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 > sub deux-fois ($sub) {$sub(); $sub();} sub deux-fois ($sub) { #`(Sub|162780000) ... } > sub hello { say "Hello world!"; } sub hello () { #`(Sub|162780152) ... } > deux-fois hello; # ne fonctionne pas correctement Hello world! No such method 'CALL-ME' for invocant of type 'Bool' in sub deux-fois at <unknown file> line 1 in block <unit> at <unknown file> line 1 > deux-fois &hello; # là, ça marche Hello world! Hello world! >
Comme on le voit, le sigil & est nécessaire pour que Perl 6 sache que l'on veut passer la fonction en argument et non l'exécuter immédiatement.

Bien sûr, on peut aussi passer à deux-fois une fonction anonyme:
Code:

1 2 3 > deux-fois { say "Hello world!" } Hello world! Hello world!
Il est également préférable d'utiliser le sigil & dans la signature et le corps de la fonction deux-fois.

Essayons avec la définition actuelle de passer une chaîne de caractères à la fonction deux-fois:
Code:

1 2 3 4 > deux-fois "toto"; No such method 'CALL-ME' for invocant of type 'Str' in sub deux-fois at <unknown file> line 1 in block <unit> at <unknown file> line 1
J'ai une erreur, c'est normal puisque ça n'a pas de sens de passer une chaîne de caractères à la fonction, mais le message d'erreur n'est pas très clair.

Si maintenant je définis la fonction deux-fois comme ceci:
Code:

1 2 3 4 5 6 7 8 > sub deux-fois (&sub) {&sub(); &sub();} sub deux-fois (&sub) { #`(Sub|132158392) ... } > deux-fois "toto" Type check failed in binding to parameter '&sub'; expected Callable but got Str ("toto") in sub deux-fois at <unknown file> line 1 in block <unit> at <unknown file> line 1 >
Le message d'erreur est plus clair: la fonction deux-fois attend une fonction ou un bloc de code exécutable (un objet de type Callable) et je lui passe une chaîne de caractères.

Avec cette nouvelle définition, j'ai:
Code:

1 2 3 4 5 6 7 8 9 10 > deux-fois hello Hello world! Type check failed in binding to parameter '&sub'; expected Callable but got Bool (Bool::True) in sub deux-fois at <unknown file> line 1 in block <unit> at <unknown file> line 1 > deux-fois &hello Hello world! Hello world! >

Oui, en effet, j'ai mélangé avec autre chose.
Et en effet, avec le &, ça a l'air d'aller plus loin, mais ça bloque encore

Code:

1
2
3
4
5
6
7
8
9
10
 
Tk::Error: Attempt to load 'Tk::Canvas::&getXY' at /usr/lib/x86_64-linux-gnu/perl5/5.24/Tk/Widget.pm line 287.
	Tk::Widget::AUTOLOAD(Tk::Canvas=HASH(0x56132fe6ca18), "Ev('x')", "Ev('y')") called at /usr/lib/x86_64-linux-gnu/perl5/5.24/Tk.pm line 424
	eval {...} called at /usr/lib/x86_64-linux-gnu/perl5/5.24/Tk.pm line 424
	Tk::MainLoop() called at -e line 0
	eval {...} called at -e line 0
 Carp::confess at /usr/share/perl/5.24/Carp.pm line 168
 Tk::Widget::AUTOLOAD at /usr/lib/x86_64-linux-gnu/perl5/5.24/Tk/Widget.pm line 287
 <Button-1>
 (command bound to event)

09/12/2018, 13h14
Lolo78

Citation:

Envoyé par alainbb

Le premier print fonctionne, mais le deuxième ne trouve pas Ev

Et tu l'appelles comment, cette fonction getXY? Perce que si tu lui passes deux arguments, le troisième shiftne trouvera rien.
09/12/2018, 13h45
alainbb
Je ne maîtrise pas les appels de fonction de ce type.
Je me suis basé sur l'exemple de perl 5 (en début du fil de discussion). C'est fait de la même manière. (l'exemple est tiré de "Inroduction à perl/tk)
Code:

1 2 3 4 5 6 ... $canevas->Tk::bind("<Button-1>", [ \&affiche_xy, Ev('x'), Ev('y') ]); sub affiche_xy { my ($canev, $x, $y) = @_; ...
Tu as une idée d'un forum anglais où je pourrais poser la question ?
09/12/2018, 14h15
Lolo78

Citation:

Envoyé par alainbb

Tu as une idée d'un forum anglais où je pourrais poser la question ?

Tu peux essayer d'envoyer un mail à la liste de diffusion perl6-users@perl.org (les messages et réponses se retrouvent sur le site https://www.nntp.perl.org/group/perl.perl6.users). C'est sans doute là que tu trouveras les meilleurs spécialistes de Perl 6, avec sans doute des gens connaissant aussi TK.

Sinon, essayer dans la rubrique Perl 6 de Stack Overflow, il y a généralement beaucoup de réponses.

Il y a aussi Perl Monks, mais il y a assez peu de questions sur P6.

Évite cependant de poster simultanément sur plusieurs de ces sites (c'est assez mal vu), ou, si tu le fais, prends soin d'indiquer clairement que tu poses aussi la question ailleurs, en indiquant l'URL de cet ailleurs (le but étant d'éviter dans la mesure du possible la duplication de travail entre différents forums).
09/12/2018, 14h28
alainbb

Pourquoi aller chercher midi à 14 heures

Code:

$plan.CanvasBind("<Button-1>", [&getXY, Ev('x'), Ev('y')]);

:-)
09/12/2018, 15h33
Lolo78

Et ça, ça marche?

Si c'est le cas, j'ai finalement bien fait de parler du sigil & (même si c'était un "tir dans la nuit", à tout hasard) et d'insister ensuite.
09/12/2018, 18h46
alainbb

Oui, oui. Ca marche, sinon, je n'aurais pas mis "résolu".
Je ne sais évidemment plus les tests que j'ai fait il y a quelques jours et qui m'a poussé à changer les [ en <, mais voilà dans ce cas, c'était pas la bonne idée.
10/12/2018, 12h46
alainbb

Je pense avoir retrouvé.
Le code que j'ai envoyé est un code simplifié pour bien cibler le problème.
Mais pour du vrai, j'avais commencé à mettre ce qui concerne Tk dans un .pm, et la, le Bind ne fonctionne pas du tout quel que soit les & \ [ <, bon j'ai pas tout essayé. :-)
Et donc, dans un premier temps, je vais tout réintégrer dans le .pl , et un jour peut-être je fouillerai...
17/12/2018, 18h49
djibril

Bonsoir,

As-tu regardé cet exemple ?

https://perl.developpez.com/tutoriel...-canevas#LIX-U

Citation:

Envoyé par djibril

As-tu regardé cet exemple ?

Oui, oui, évidemment, j'ai le livre depuis 20 ans :-)

Le souci ici, c'est l'application à perl6. J'ai trouvé ce qui ne fonctionne pas, c'est pas une histoire de pm. Ci-dessous un code qui dysfonctionne, par contre si on décommente la ligne 17, ça marche. Je comprends pas, mais bon... pas grave pour l'instant.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 #!/opt/rakudo-star/install/bin/perl6 use Inline::Perl5; use Tk:from<Perl5>; sub getXY($canev,$x,$y) { say $canev.canvasx($x), $canev.canvasy($y); } my $window=MainWindow.new(); $window.title('KanDeLa'); my $drawing=$window.Scrolled('Canvas','-width',400,'-height',300,'background','white').pack(); my $plan=$drawing.Subwidget("canvas"); $plan.createOval(0,0,150,150); #$plan.CanvasBind("<Button-3>", {say('ok')}); $plan.CanvasBind("<Button-1>", [&getXY, Ev('x'), Ev('y')]); MainLoop;

18/12/2018, 22h00
djibril

ok :aie: