home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dream 46
/
Amiga_Dream_46.iso
/
Linux
/
Magazine
/
Tcltk
/
dnd.tcl
< prev
next >
Wrap
Text File
|
1997-11-13
|
1KB
|
68 lines
# widget source
message .source -width 40c -text "Je suis la source"
# widget destination et fenetre top niveau associΘe
toplevel .top2
message .top2.dest -width 40c -text "Je suis la destination"
# on affiche le tout
pack .source
pack .top2.dest
# variable globale : un drag est en cours ?
set DragEnCours false
# dΘmarrage d'un drag
bind .source <ButtonPress-1> {
global DragEnCours
.source configure -text "Je suis la source\net je suis victime d'un drag !\nAu secours !"
.top2.dest configure -text "Je suis la destination\nVous me droppez quand vous voulez !"
grab set -global .
. configure -cursor "hand1"
set DragEnCours true
}
# drag annulΘ (le grab est sur le . )
bind . <ButtonRelease-1> {
global DragEnCours
.source configure -text "Je suis la source\nDrag annulΘ"
grab release .
. configure -cursor "arrow"
set DragEnCours false
}
# le drop
bind .top2.dest <ButtonRelease-1> {
global DragEnCours
if { $DragEnCours } {
.top2.dest configure -text "Je suis la destination\nVous venez de droper la source, merci !"
.source configure -text "Je suis la source\nDrag terminΘ ... Ca fait mal !"
grab release .
. configure -cursor "arrow"
}
set DragEnCours false
}