--- a/SimpleView.st	Thu May 29 15:26:34 2008 +0200
+++ b/SimpleView.st	Fri May 30 14:01:22 2008 +0200
@@ -5675,26 +5675,21 @@
 
     |doRequestFocus|
 
+    "/ first ask my flags if its enforced or forbidden
     self requestFocusOnPointerEnter ifTrue:[
-	doRequestFocus := true
+        doRequestFocus := true
     ] ifFalse:[
-	self doNotRequestFocusOnPointerEnter ifTrue:[
-	    doRequestFocus := false
-	] ifFalse:[
-	    doRequestFocus := self wantsFocusWithPointerEnter
-	]
+        self doNotRequestFocusOnPointerEnter ifTrue:[
+            doRequestFocus := false
+        ] ifFalse:[
+            "/ then look for the settings.
+            doRequestFocus := self wantsFocusWithPointerEnter
+        ]
     ].
 
     doRequestFocus ifTrue:[
-	self requestFocus.
-    ].
-!
-
-pointerLeave:state
-    "got mouse pointer.
-     Nothing done here"
-
-    "Modified: 25.2.1997 / 23:43:17 / cg"
+        self requestFocus.
+    ].
 !
 
 reparented
@@ -10132,7 +10127,7 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.583 2008-05-29 09:52:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.584 2008-05-30 12:01:22 cg Exp $'
 ! !
 
 SimpleView initialize!