--- 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!