common behavior for windows and unix:
raise drop target window after button release
(did this only for windows until now)
--- a/DragAndDropManager.st Tue Apr 11 19:47:06 2006 +0200
+++ b/DragAndDropManager.st Tue Apr 11 19:57:32 2006 +0200
@@ -1275,7 +1275,7 @@
"/ ].
"/ ].
(targetWidget notNil and:[targetWidget shown]) ifTrue:[
- targetWidget topView setForegroundWindow; activate.
+ targetWidget topView raise; activate.
targetWidget takeFocus.
].
!
@@ -1421,19 +1421,18 @@
|target|
- aView isNil ifTrue:[ ^ nil ].
+ aView isNil ifTrue:[
+ ^ nil
+ ].
- "/
- "/ new mechanism to get a dropTarget
- "/
+ "new mechanism to get a dropTarget"
target := aView dropTarget.
target notNil ifTrue:[
^ target
].
- "/
- "/ old mechanism to get a dropTarget
- "/
+ "old mechanism to get a dropTarget"
+
(SignalSet
with:DragContextQuerySignal
with:DragOriginatorQuerySignal
@@ -1442,7 +1441,7 @@
ex signal == DragContextQuerySignal ifTrue:[ ex proceedWith:dropContext].
ex signal == DragOriginatorQuerySignal ifTrue:[ ex proceedWith:dragView].
ex signal == DragOffsetQuerySignal ifTrue:[ ex proceedWith:dragOffset].
- self error.
+ self error:'unexpected query'.
] do:[
|view dobj|
@@ -1569,7 +1568,7 @@
!DragAndDropManager class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.69 2006-01-30 08:29:46 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.70 2006-04-11 17:57:32 stefan Exp $'
! !
DragAndDropManager initialize!