diff options
| author | petasisg@gmail.com <petasisg@gmail.com@f3661a36-4baa-549a-d6c7-40e0ffef350e> | 2015-03-04 12:09:18 (GMT) |
|---|---|---|
| committer | petasisg@gmail.com <petasisg@gmail.com@f3661a36-4baa-549a-d6c7-40e0ffef350e> | 2015-03-04 12:09:18 (GMT) |
| commit | ebaaea50f551ac1f6378b43329984680374f22a8 (patch) | |
| tree | 546ae826c58b63f56b6cae5c236e435d0562080b /library/tkdnd.tcl | |
| parent | 84fdd43b69b2f7db996fa580f31468bc53e3e848 (diff) | |
| download | tkdnd-ebaaea50f551ac1f6378b43329984680374f22a8.zip tkdnd-ebaaea50f551ac1f6378b43329984680374f22a8.tar.gz tkdnd-ebaaea50f551ac1f6378b43329984680374f22a8.tar.bz2 | |
%x, %y mouse coordinates for drag sources event
Diffstat (limited to 'library/tkdnd.tcl')
| -rw-r--r-- | library/tkdnd.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/tkdnd.tcl b/library/tkdnd.tcl index c8f05af..0ad3f43 100644 --- a/library/tkdnd.tcl +++ b/library/tkdnd.tcl @@ -342,7 +342,7 @@ proc ::tkdnd::_init_drag { button source state rootX rootY X Y } { # Command tkdnd::_end_drag # ---------------------------------------------------------------------------- proc ::tkdnd::_end_drag { button source target action type data result - state rootX rootY } { + state rootX rootY X Y } { set rootX 0 set rootY 0 # Call the <<DragEndCmd>> binding. |