diff options
author | petasis <petasis@f3661a36-4baa-549a-d6c7-40e0ffef350e> | 2010-04-06 12:25:12 (GMT) |
---|---|---|
committer | petasis <petasis@f3661a36-4baa-549a-d6c7-40e0ffef350e> | 2010-04-06 12:25:12 (GMT) |
commit | 1c1422c384206a342475c9e9afb08ab1b05115a7 (patch) | |
tree | 98d26362f379a6d5624145d2ab2055c2f01f31ce /demos/basic.tcl | |
parent | af403971e099fad367b7b8c932bb85223b644214 (diff) | |
download | tkdnd-1c1422c384206a342475c9e9afb08ab1b05115a7.zip tkdnd-1c1422c384206a342475c9e9afb08ab1b05115a7.tar.gz tkdnd-1c1422c384206a342475c9e9afb08ab1b05115a7.tar.bz2 |
OS X Drag attempts
Diffstat (limited to 'demos/basic.tcl')
-rw-r--r-- | demos/basic.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/demos/basic.tcl b/demos/basic.tcl index f761e98..b4a570c 100644 --- a/demos/basic.tcl +++ b/demos/basic.tcl @@ -16,10 +16,12 @@ bind .text_drag_source <<DragEndCmd>> \ [list drag_source DND_Text $text_data %e %W %s %X %Y %A]
bind .file_drag_source <<DragInitCmd>> \
[list drag_source DND_Files $file_data %e %W %s %X %Y %A]
+bind .file_drag_source <<DragEndCmd>> \
+ [list drag_source DND_Files $file_data %e %W %s %X %Y %A]
proc drag_source {type data event path state x y action} {
switch $event {
<<DragInitCmd>> {return [list copy $type $data]}
- <<DragEndCmd>> {}
+ <<DragEndCmd>> {puts "Drag action: $action (type: $type)"}
}
};# drag_source
|