*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 11 May 2006 19:54:11 +0200
changeset 3305 e19aa6b1e427
parent 3304 bd0991615b04
child 3306 5658bc68661e
*** empty log message ***
EditField.st
--- a/EditField.st	Tue Apr 18 13:27:38 2006 +0200
+++ b/EditField.st	Thu May 11 19:54:11 2006 +0200
@@ -1765,10 +1765,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:#'editField.requestFocusOnPointerEnter' default:true)
     and:[enabled 
     and:[self isReadOnly not]]]) ifTrue:[
@@ -2167,5 +2164,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.180 2006-03-28 21:02:25 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.181 2006-05-11 17:54:11 cg Exp $'
 ! !