--- a/View.st	Wed Dec 08 21:50:13 1999 +0100
+++ b/View.st	Wed Dec 08 21:51:24 1999 +0100
@@ -729,6 +729,22 @@
     "Modified: / 30.3.1999 / 16:09:14 / stefan"
 ! !
 
+!View methodsFor:'focus handling'!
+
+wantsFocusWithButtonPress
+    "views which do not like to take the keyboard focus
+     with buttonPress can do so by redefining this
+     to return false"
+
+    (self class == View) ifTrue:[
+        "/ a pure filler/geometric layout view
+        ^ false
+    ].
+    ^ super wantsFocusWithButtonPress
+
+
+! !
+
 !View methodsFor:'initialize / release'!
 
 destroy
@@ -761,5 +777,5 @@
 !View class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.66 1999-10-07 08:14:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.67 1999-12-08 20:51:24 ca Exp $'
 ! !