--- a/SelectionInListView.st	Fri Mar 26 15:13:01 1999 +0100
+++ b/SelectionInListView.st	Fri Mar 26 18:54:54 1999 +0100
@@ -2479,7 +2479,13 @@
      Since I process keyboard events (to position on an entry and/or
      for scrolling), request the focus."
 
-    (styleSheet at:#'selection.requestFocusOnPointerEnter' default:true) ifTrue:[
+    |pref|
+
+    pref := UserPreferences current focusFollowsMouse.
+    (pref == true
+    or:[pref == nil
+        and:[styleSheet at:#'selection.requestFocusOnPointerEnter' default:true]]
+    ) ifTrue:[
         self requestFocus.
     ].
     super pointerEnter:state x:x y:y
@@ -3629,5 +3635,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.142 1999-03-22 19:37:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.143 1999-03-26 17:54:13 cg Exp $'
 ! !