Discussion :

[Perl53]

Bonjour,

j'aimerai faire un programme qui me permette de déplacer des formes dans un canvas. J'ai fait ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
use Tk ;
 
$x1 = 0;
$y1 = 0;
$x2 = 100;
$y2 = 100;
 
sub Bas {
	$y1 += 1 if $y1 < 400 && $y2 < 400;
	$y2 += 1 if $y2 < 400 && $y1 < 400;
	print "$y1, $y2\n";
	$rec = $caneva -> create ( 'rectangle', "$x1","$y1","$x2","$y2", -fill => 'blue' );
}
 
$fenetre = MainWindow -> new ;
$caneva = $fenetre -> Canvas ( -width => 400 , -height => 400 ,-background => 'white') ;
$rec = $caneva -> create ( 'rectangle', "$x1","$y1","$x2","$y2", -fill => 'blue' );
$caneva -> pack ( ) ;
$fenetre -> bind ('<Key>', \&Bas);
 
MainLoop ;

mais le problème c'est que il y a toujours la trace du précédent carré donc je voudrais savoir si quelqu'un savait comment faire.

Merci

[djibril]

Salut,

Pour déplacer les éléments d'un canvas (les rectangles, cercles, etc ...), on utilise la méthode coords ou move.

Ex:

Code :

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

$canvas->coords("Marqueur ou Id", x, y (ou x1, y1, x2, y2) );

ou

Code :

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

$canvas->move("Marqueur ou Id", x, y); => deplace la figure de x et y

Une bonne façon aussi de créer les canvas est de passer par Scrolled et si tu souhaite faire du bind dessus, utilise plutôt

Code :

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

$canvas->Tk::bind(...);

Je te met un script exemple :

Code :

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

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
#!/usr/bin/perl
use warnings;
use strict;
use Tk;    # Appel du module Tk
use utf8;
 
# Programme principal
# Création de la fenêtre
my $fenetre = new MainWindow(
    -title      => "Canvas Tk ",
    -background => "white",
);
 
my ($x1, $y1, $x2, $y2) = (0, 0, 100, 100);
 
my $MessageAccueil
    = "Bonjour tout le monde\n\nWelcome dans le monde magnifique de Perl/Tk\n\n";
 
# Affichage d'un texte
my $LabelAccueil = $fenetre->Label(
    -text       => $MessageAccueil,
    -background => "white",
)->pack();
 
# Affichage d'un bouton pour fermer la fenêtre
my $bouton = $fenetre->Button(
    -text    => "Fermez la fenêtre",
    -command => sub { exit; },
)->pack();
 
 
my $Canvas = $fenetre->Scrolled("Canvas",
  -width => 400 , 
  -height => 400 ,
  -background => "#CDDCEC",
  -scrollbars => "osoe",
)->pack;
my $RealCanvas = $Canvas->Subwidget("canvas");
 
 
 
my $IDRectangle = $Canvas->create ( 'rectangle', $x1,$y1,$x2,$y2, -fill => 'red' );
print "ID rectangle : $IDRectangle\n";
$RealCanvas-> Tk::bind("<Button-1>", \&Bas);
 
#CentrerWidget($fenetre);
 
MainLoop();    # Obligatoire
 
sub Bas {
	$y1 += 1 if $y1 < 400 && $y2 < 400;
	$y2 += 1 if $y2 < 400 && $y1 < 400;
  print "Bouger rectangle ( $x1,$y1,$x2,$y2)\n";
 
	$Canvas->coords ( $IDRectangle, $x1,$y1,$x2,$y2 );
	#$Canvas->move ( $IDRectangle, 0,1 );
}
 
 
MainLoop ;

La faq sera bientôt complétée

[Perl53]

en fait j'ai utiliser la fonction delete sur le rectangle