DragAndDropManager.st
changeset 2133 0581d9906df0
parent 2093 d29474de6ab5
child 2254 b120e73f9a76
--- 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!