--- a/Scroller.st	Thu Mar 25 15:33:52 1999 +0100
+++ b/Scroller.st	Thu Mar 25 15:56:07 1999 +0100
@@ -1663,6 +1663,16 @@
     super update:something with:aParameter from:changedObject
 ! !
 
+!Scroller methodsFor:'focus handling'!
+
+wantsFocusWithButtonPress
+    "no, do not catch the keyboard focus on button click"
+
+    ^ false
+
+
+! !
+
 !Scroller methodsFor:'forced scroll'!
 
 pageDown
@@ -2325,5 +2335,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.120 1999-03-19 21:10:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.121 1999-03-25 14:56:07 cg Exp $'
 ! !