diff options
| author | petasisg@gmail.com <petasisg@gmail.com@f3661a36-4baa-549a-d6c7-40e0ffef350e> | 2014-09-21 16:54:49 (GMT) |
|---|---|---|
| committer | petasisg@gmail.com <petasisg@gmail.com@f3661a36-4baa-549a-d6c7-40e0ffef350e> | 2014-09-21 16:54:49 (GMT) |
| commit | 6689ede984a803f7a01b4d61ea385d997b3e76bb (patch) | |
| tree | e256f2a1fa57263f4f860d505c1781c885c2c0ec /demos | |
| parent | a4478b5df7516a90af3df53910bbebef6d2d4fcf (diff) | |
| download | tkdnd-6689ede984a803f7a01b4d61ea385d997b3e76bb.zip tkdnd-6689ede984a803f7a01b4d61ea385d997b3e76bb.tar.gz tkdnd-6689ede984a803f7a01b4d61ea385d997b3e76bb.tar.bz2 | |
Generic drop implementation for OS X
Diffstat (limited to 'demos')
| -rw-r--r-- | demos/complex_source.tcl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/demos/complex_source.tcl b/demos/complex_source.tcl index 717231b..9de48c0 100644 --- a/demos/complex_source.tcl +++ b/demos/complex_source.tcl @@ -5,13 +5,17 @@ set filename [file normalize [info script]] ##
## Drag source
##
-pack [ttk::button .drag_source -text " Drag Source "] \
+pack [ttk::button .drag_source -text " Drag Source (Ttk widget)"] \
+ -fill x -padx 20 -pady 20
+pack [button .drag_source_tk -text " Drag Source (Tk widget)"] \
-fill x -padx 20 -pady 20
tkdnd::drag_source register .drag_source
+tkdnd::drag_source register .drag_source_tk
## Event <<DragInitCmd>>
-bind .drag_source <<DragInitCmd>> my_data
+bind .drag_source <<DragInitCmd>> my_data
+bind .drag_source_tk <<DragInitCmd>> my_data
proc my_data {} {
list copy [list \
|