--- a/DragAndDropManager.st Fri Nov 23 14:06:49 2007 +0100
+++ b/DragAndDropManager.st Mon Dec 03 10:56:28 2007 +0100
@@ -14,7 +14,7 @@
Object subclass:#DragAndDropManager
instanceVariableNames:'dropContext dragView dropAction dragOffset handler restoreBlock
alienCursor enabledCursor disabledCursor canDrop escapePressed
- passiveAction autoScrollTask disabledFlag'
+ passiveAction autoScrollTask disabledFlag giveFocusToTargetWidget'
classVariableNames:'DragContextQuerySignal DragOriginatorQuerySignal
DragOffsetQuerySignal ActiveDragAndDropManagers'
poolDictionaries:''
@@ -871,6 +871,10 @@
^ dragView font
!
+giveFocusToTargetWidget:aBoolean
+ giveFocusToTargetWidget := aBoolean.
+!
+
isDisabled
^ disabledFlag ? false
!
@@ -1272,9 +1276,11 @@
"/ dropContext targetWidget requestFocus
"/ ].
"/ ].
- (targetWidget notNil and:[targetWidget shown]) ifTrue:[
- targetWidget topView raise; activate.
- targetWidget takeFocus.
+ giveFocusToTargetWidget ifTrue:[
+ (targetWidget notNil and:[targetWidget shown]) ifTrue:[
+ targetWidget topView raise; activate.
+ targetWidget takeFocus.
+ ].
].
!
@@ -1376,6 +1382,7 @@
enabledCursor := Cursor thumbsUp.
disabledCursor := Cursor thumbsDown.
canDrop := false.
+ giveFocusToTargetWidget := true.
! !
!DragAndDropManager methodsFor:'private'!
@@ -1573,7 +1580,7 @@
!DragAndDropManager class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.73 2006-10-13 16:24:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.74 2007-12-03 09:56:28 ca Exp $'
! !
DragAndDropManager initialize!