SelectionInListView.st
changeset 3306 5658bc68661e
parent 3289 7278c0004f1b
child 3423 ea51036f2083
--- a/SelectionInListView.st	Thu May 11 19:54:11 2006 +0200
+++ b/SelectionInListView.st	Thu May 11 19:54:34 2006 +0200
@@ -2621,10 +2621,7 @@
     "return true, if I want the focus when
      the mouse pointer enters"
 
-    |pref|
-
-    pref := UserPreferences current focusFollowsMouse.
-    (pref ~~ false
+    (UserPreferences current focusFollowsMouse ~~ false
     and:[(styleSheet at:#'selection.requestFocusOnPointerEnter' default:true)
     ]) ifTrue:[
         list size > 0 ifTrue:[
@@ -3962,5 +3959,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.235 2006-03-17 14:00:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.236 2006-05-11 17:54:34 cg Exp $'
 ! !