--- a/TopView.st	Mon Feb 02 11:31:24 2004 +0100
+++ b/TopView.st	Mon Feb 02 14:54:17 2004 +0100
@@ -106,6 +106,18 @@
      at the current pointer position"
 
     ForceModalBoxesToOpenAtPointer := aBoolean
+!
+
+takeFocusWhenMapped:aBoolean
+    "if turned on, topViews will grab the keyboard when mapped.
+     This is useful on systems like openView or Win32, where a view needs a click
+     otherwise"
+
+    TakeFocusWhenMapped := aBoolean
+
+    "
+     StandardSystemView takeFocusWhenMapped:true
+    "
 ! !
 
 !TopView methodsFor:'Compatibility-ST80'!
@@ -811,5 +823,5 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.82 2003-07-22 17:56:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.83 2004-02-02 13:54:14 ca Exp $'
 ! !