DragAndDropManager.st
changeset 3115 a675e9962acc
parent 2927 49bd291d76e0
child 3302 b6d6a1db9a79
--- a/DragAndDropManager.st	Wed Apr 17 18:27:30 2013 +0200
+++ b/DragAndDropManager.st	Fri Apr 19 11:38:12 2013 +0200
@@ -1569,9 +1569,12 @@
         with:DragOriginatorQuerySignal
         with:DragOffsetQuerySignal)
     handle:[:ex |
-        ex signal == DragContextQuerySignal ifTrue:[ ex proceedWith:dropContext].
-        ex signal == DragOriginatorQuerySignal ifTrue:[ ex proceedWith:dragView].
-        ex signal == DragOffsetQuerySignal ifTrue:[ ex proceedWith:dragOffset].
+        |signal|
+
+        signal := ex creator.
+        signal == DragContextQuerySignal ifTrue:[ ex proceedWith:dropContext].
+        signal == DragOriginatorQuerySignal ifTrue:[ ex proceedWith:dragView].
+        signal == DragOffsetQuerySignal ifTrue:[ ex proceedWith:dragOffset].
         self error:'unexpected query'.
     ] do:[
         |view app dobj|
@@ -1716,11 +1719,12 @@
 !DragAndDropManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.90 2011-07-18 07:38:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.91 2013-04-19 09:38:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.90 2011-07-18 07:38:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.91 2013-04-19 09:38:12 cg Exp $'
 ! !
 
+
 DragAndDropManager initialize!