--- a/ObjectView.st	Wed May 26 15:43:46 1999 +0200
+++ b/ObjectView.st	Thu May 27 13:41:59 1999 +0200
@@ -1325,10 +1325,9 @@
 pointerEnter:state x:x y:y
     "mouse pointer entered - request the keyboard focus"
 
-    UserPreferences current focusFollowsMouse ~~ false ifTrue:[
+    self wantsFocusWithPointerEnter ifTrue:[
         self requestFocus.
     ].
-    super pointerEnter:state x:x y:y
 
 
 
@@ -1346,6 +1345,14 @@
     "Modified: 5.6.1996 / 10:42:19 / cg"
 ! !
 
+!ObjectView methodsFor:'focus control'!
+
+wantsFocusWithPointerEnter
+    ^ UserPreferences current focusFollowsMouse ~~ false
+
+
+! !
+
 !ObjectView methodsFor:'grid manipulation'!
 
 alignOff
@@ -3081,5 +3088,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.67 1999-03-30 07:49:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.68 1999-05-27 11:41:25 cg Exp $'
 ! !