Discussion :

[spheris]

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 :

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
.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?

[Le Bertch]

Bonjour,

Code :

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

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

retourne l'id de l'item sous la souris

Code :

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

.desk move $selected $changed_x $changed_y

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

[Canvas]

Bonsoir,

La solution était assez proche :

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
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]}

[Le Bertch]

Bonjour,

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

Code :

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

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

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

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

[Le Bertch]

Et finalement, cette ligne ne sert à rien. On l'enlève, ça fonctionne toujours !

[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.