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:
Mon souci c'est que je n'arrive pas à déplacer les deux (texte et image) en même temps.
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 }
Auriez-vous une solution?
Partager