DragAndDropManager.st
changeset 2062 54c1c37389a0
parent 2061 f847cebf016f
child 2063 dc16836d45dc
--- a/DragAndDropManager.st	Tue Sep 27 14:58:03 2005 +0200
+++ b/DragAndDropManager.st	Fri Sep 30 10:46:22 2005 +0200
@@ -1272,11 +1272,15 @@
 
     "/ UI feels better, if the focus is assigned to the target view,
     "/ if click-for-focus is on.
-    UserPreferences current focusFollowsMouse == false ifTrue:[
-        dropContext targetWidget wantsFocusWithButtonPress ifTrue:[
-            dropContext targetWidget requestFocus    
-        ].
-    ].
+    "/ CG: no - do it always
+"/    UserPreferences current focusFollowsMouse == false ifTrue:[
+"/        dropContext targetWidget wantsFocusWithButtonPress ifTrue:[
+"/            dropContext targetWidget requestFocus    
+"/        ].
+"/    ].
+    dropContext targetWidget topView setForegroundWindow.    
+    dropContext targetWidget topView activate.
+    dropContext targetWidget takeFocus.    
 !
 
 escapePressed
@@ -1561,7 +1565,7 @@
 !DragAndDropManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.62 2005-09-27 12:58:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.63 2005-09-30 08:46:22 cg Exp $'
 ! !
 
 DragAndDropManager initialize!