Mass Deface $X $Y } if {$target != ""} { tixDragDropContext:Send $w $target $X $Y } set data(oldTarget) $target } if {$target != ""} { tixDragDropContext:Send $w $target $X $Y } } proc tixDragDropContext:drop {w X Y} { upvar #0 $w data global tixDrop set target [winfo containing -displayof $w $X $Y] if {$target != ""} { tixDragDropContext:Send $w $target $X $Y } if {$data(-source) != ""} { $data(-source) config -cursor "" } set data(-source) "" } #---------------------------------------------------------------------- # Public Procedures -- This is NOT a member of the tixDragDropContext # class! # # parameters : # $w: who wants to start dragging? (currently ignored) #---------------------------------------------------------------------- proc tixGetDragDropContext {w} { global tixDD if {[info exists tixDD]} { return tixDD } return [tixDragDropContext tixDD] } proc tixDropBind {w event command} { global tixDrop set tixDrop($w) 1 set tixDrop($w,$event) $command } proc tixDropBindTags {w args} { global tixDropTags if {$args == ""} { if {[info exists tixDropTags($w)]} { return $tixDropTags($w) } else { return [list [winfo class $w] $w] } } else { set tixDropTags($w) $args } }