Mercurial > code > home > repos > light9

annotate tkdnd-patch-on-r95 @ 1446:ba6594263fa7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
collector: client's prev settings are no longer mixed with its new request. this breaks live page Ignore-this: 3155a2ab028d9e006ed4796ef8fbf8d0
author drewp@bigasterisk.com
date Sat, 11 Jun 2016 21:29:06 +0000
parents 43ddee394d28
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
866
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
1 Index: unix/TkDND_XDND.c
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
2 ===================================================================
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
3 --- unix/TkDND_XDND.c (revision 95)
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
4 +++ unix/TkDND_XDND.c (working copy)
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
5 @@ -517,7 +517,7 @@
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
6 ActionCopy, ActionMove, ActionLink, ActionAsk, ActionPrivate,
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
7 refuse_drop, ActionDefault
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
8 };
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
9 -
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
10 + printf("TkDND_HandleXdndDrop\n");
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
11 if (interp == NULL) return False;
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
12 if (XDND_DROP_TIME(xevent) != 0) {
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
13 time = ((sizeof(Time) == 8 && XDND_DROP_TIME(xevent) < 0)
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
14 Index: CMakeLists.txt
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
15 ===================================================================
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
16 --- CMakeLists.txt (revision 95)
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
17 +++ CMakeLists.txt (working copy)
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
18 @@ -168,7 +168,7 @@
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
19 ADD_DEFINITIONS ( -DTKDND_VERSION="${PKG_VERSION}" )
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
20
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
21 ## Package debug definitions...
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
22 -# ADD_DEFINITIONS ( -DDEBUG_CLIENTMESSAGE_HANDLER )
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
23 +ADD_DEFINITIONS ( -DDEBUG_CLIENTMESSAGE_HANDLER )
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
24
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
25 ## ===========================================================================
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
26 ## Declare the package shared library target...
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
27 Index: library/tkdnd_unix.tcl
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
28 ===================================================================
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
29 --- library/tkdnd_unix.tcl (revision 95)
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
30 +++ library/tkdnd_unix.tcl (working copy)
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
31 @@ -54,7 +54,7 @@
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
32 variable _last_mouse_root_y 0
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
33
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
34 proc debug {msg} {
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
35 - puts $msg
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
36 + #puts $msg
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
37 };# debug
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
38 };# namespace xdnd
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
39
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
40 @@ -69,6 +69,7 @@
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
41 variable _common_drop_target_types; set _common_drop_target_types {}
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
42 variable _actionlist
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
43 variable _drag_source; set _drag_source $drag_source
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
44 +debug "_drop_target clear1"
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
45 variable _drop_target; set _drop_target {}
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
46 variable _actionlist; set _actionlist \
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
47 {copy move link ask private}
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
48 @@ -82,6 +83,15 @@
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
49 return default
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
50 };# xdnd::_HandleXdndEnter
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
51
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
52 +
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
53 +proc xdnd::_pointWithinWindow {win rootX rootY} {
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
54 + set x [winfo rootx $win]
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
55 + set y [winfo rooty $win]
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
56 + set w [winfo width $win]
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
57 + set h [winfo height $win]
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
58 + return [expr "$rootX >= $x && $rootX < $x+$w && $rootY >= $y && $rootY < $y+$h"]
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
59 +}
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
60 +
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
61 # ----------------------------------------------------------------------------
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
62 # Command xdnd::_HandleXdndPosition
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
63 # ----------------------------------------------------------------------------
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
64 @@ -102,9 +112,19 @@
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
65 # debug "xdnd::_HandleXdndPosition: drop_target=$drop_target,\
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
66 # _drop_target=$_drop_target, rootX=$rootX, rootY=$rootY"
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
67
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
68 + # drop_target may be a parent of the real target.
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
69 +
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
70 + # this is all a workaround for 'winfo containing' never returning anything
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
71 + set children [winfo children $drop_target]
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
72 + foreach child $children {
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
73 + if {[_pointWithinWindow $child $rootX $rootY]} {
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
74 + return [_HandleXdndPosition $child $rootX $rootY $drag_source]
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
75 + }
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
76 + }
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
77 +
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
78 if {![info exists _drag_source] && ![string length $_drag_source]} {
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
79 - # debug "xdnd::_HandleXdndPosition: no or empty _drag_source:\
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
80 - # return refuse_drop"
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
81 + debug "xdnd::_HandleXdndPosition: no or empty _drag_source:\
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
82 + return refuse_drop"
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
83 return refuse_drop
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
84 }
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
85
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
86 @@ -116,7 +136,7 @@
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
87
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
88 ## Does the new drop target support any of our new types?
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
89 set _types [bind $drop_target <<DropTargetTypes>>]
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
90 - # debug ">> Accepted types: $drop_target $_types"
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
91 + debug ">> Accepted types: $drop_target $_types"
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
92 if {[llength $_types]} {
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
93 ## Examine the drop target types, to find at least one match with the drag
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
94 ## source types...
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
95 @@ -130,7 +150,7 @@
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
96 }
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
97 }
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
98
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
99 - # debug "\t($_drop_target) -> ($drop_target)"
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
100 + debug "\t($_drop_target) -> ($drop_target)"
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
101 if {$drop_target != $_drop_target} {
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
102 if {[string length $_drop_target]} {
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
103 ## Call the <<DropLeave>> event.
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
104 @@ -152,6 +172,7 @@
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
105 uplevel \#0 $cmd
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
106 }
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
107 }
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
108 + debug "_drop_target clear2"
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
109 set _drop_target {}
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
110
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
111 if {[info exists common_drag_source_types]} {
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
112 @@ -179,15 +200,16 @@
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
113 set _action [uplevel \#0 $cmd]
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
114 }
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
115 }
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
116 + debug "_drop_target set3 $drop_target"
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
117 set _drop_target $drop_target
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
118 }
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
119
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
120 set _action refuse_drop
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
121 - set _drop_target {}
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
122 if {[info exists common_drag_source_types]} {
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
123 set _action copy
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
124 set _common_drag_source_types $common_drag_source_types
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
125 set _common_drop_target_types $common_drop_target_types
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
126 + debug "_drop_target set5 -> $_drop_target"
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
127 set _drop_target $drop_target
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
128 ## Drop target supports at least one type. Send a <<DropPosition>>.
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
129 set cmd [bind $drop_target <<DropPosition>>]
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
130 @@ -206,6 +228,10 @@
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
131 ] $cmd]
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
132 set _action [uplevel \#0 $cmd]
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
133 }
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
134 + } else {
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
135 + # logic wasn't clear; i'm just guessing this should be the else-clause
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
136 + debug "_drop_target clear4, was $_drop_target"
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
137 + set _drop_target {}
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
138 }
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
139 # Return values: copy, move, link, ask, private, refuse_drop, default
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
140 # debug "xdnd::_HandleXdndPosition: ACTION: $_action"
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
141 @@ -227,7 +253,10 @@
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
142 variable _drop_target
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
143 variable _last_mouse_root_x
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
144 variable _last_mouse_root_y
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
145 - if {![info exists _drop_target]} {set _drop_target {}}
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
146 + if {![info exists _drop_target]} {
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
147 +debug "_drop_target clear6"
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
148 +set _drop_target {}
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
149 +}
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
150 # debug "xdnd::_HandleXdndLeave: _drop_target=$_drop_target"
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
151 if {[info exists _drop_target] && [string length $_drop_target]} {
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
152 set cmd [bind $_drop_target <<DropLeave>>]
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
153 @@ -273,7 +302,7 @@
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
154 set rootX $_last_mouse_root_x
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
155 set rootY $_last_mouse_root_y
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
156
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
157 - # puts "xdnd::_HandleXdndDrop: $time"
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
158 + puts "xdnd::_HandleXdndDrop: $time $_drop_target"
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
159
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
160 if {![info exists _drag_source] && ![string length $_drag_source]} {
43ddee394d28 more tkdnd install instructions
Drew Perttula <drewp@bigasterisk.com>
parents:
diff changeset
161 return refuse_drop