Déplacement de deux objets en même temps dans un canvas

Version imprimable

Bonjour,
A la façon d'un explorateur, je souhaiterais déplacer une image png avec un texte dessous (comme un icone) dans un canvas en tcl tk.
Voici le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
.desk create text 50 150 -text $item -tag mobile
.desk create image 150 50 -image monimg -tag mobile
 
#One click on one icon
.desk bind mobile <Button-1> {
        set selected [.desk find closest %x %y]
        set atx %x
        set aty %y
        }
 
#One move icon
.desk bind mobile <B1-Motion> {
        set changed_x [expr %x - $atx]
        set changed_y [expr %y - $aty]
        .desk move $selected $changed_x $changed_y
        set atx %x
        set aty %y
        }

Mon souci c'est que je n'arrive pas à déplacer les deux (texte et image) en même temps.
Auriez-vous une solution?

24/04/2020, 18h51
Le Bertch

Bonjour,

Code:

set selected [.desk find closest %x %y]

retourne l'id de l'item sous la souris

Code:

.desk move $selected $changed_x $changed_y

ne déplacera donc que le premier item sélectionné.

Bonsoir,

La solution était assez proche :

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
proc grab { xo yo } {
    global cx cy
 set cx $xo
 set cy $yo
}            
 
proc drag { w xo yo id } {
    global cx cy
 set dx [expr {$xo - $cx}]
 set dy [expr {$yo - $cy}]
 $w move $id $dx $dy
 $w raise $id
 set cx $xo
 set cy $yo                
}
 
pack [canvas .desk -width 300 -height 200 -bg white]
 
.desk create rect 10 10 60 30 -fill orange -tag mobile
.desk create text 40 40 -text MON_ICONE -fill blue -tag mobile
 
.desk bind mobile <Button-1> {grab %x %y }
.desk bind mobile <B1-Motion> {drag .desk %x %y mobile}
# .desk bind drag <B1-Motion> {drag .desk %x %y [.desk find closest %x %y]}

26/04/2020, 12h16
Le Bertch

Bonjour,

La solution proposée fonctionne et pourtant j'ai eu des difficultés à comprendre la dernière ligne.

Code:

.desk bind drag <B1-Motion> {drag .desk %x %y [.desk find closest %x %y]}

Ce qui m'a interpellé est le tagorid drag !

j'ai testé sans mettre de valeur à tagorid :

Code:

.desk bind <B1-Motion> {drag .desk %x %y [.desk find closest %x %y]}

et ça marche aussi...

Nul par dans les manuels je n'ai trouvé de réponse. Ne rien mettre ou mettre un tagorid # mobile fonctionne...
26/04/2020, 15h12
Le Bertch

Et finalement, cette ligne ne sert à rien. On l'enlève, ça fonctionne toujours !
26/04/2020, 21h16
Canvas

Bonsoir,

C'est une oubli de ma part liée à différents essais !
Cette ligne n'a pas lieu d'être et je l'ai mise en commentaire.