--- a/StandardSystemView.st	Tue Jan 21 15:47:23 1997 +0100
+++ b/StandardSystemView.st	Tue Jan 21 18:32:28 1997 +0100
@@ -364,6 +364,26 @@
     IncludeHostNameInLabel := aBoolean
 
     "Modified: 24.4.1996 / 09:09:21 / cg"
+!
+
+takeFocusWhenMapped
+    ^ TakeFocusWhenMapped 
+
+    "
+     StandardSystemView takeFocusWhenMapped
+    "
+!
+
+takeFocusWhenMapped:aBoolean
+    "if turned on, topViews will grab the keyboard when mapped.
+     This is useful on systems like openView, where a view needs a click
+     otherwise"
+
+    TakeFocusWhenMapped := aBoolean
+
+    "
+     StandardSystemView takeFocusWhenMapped:true
+    "
 ! !
 
 !StandardSystemView class methodsFor:'startup'!
@@ -1211,5 +1231,5 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.59 1997-01-13 22:12:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.60 1997-01-21 17:32:28 cg Exp $'
 ! !

--- a/StdSysV.st	Tue Jan 21 15:47:23 1997 +0100
+++ b/StdSysV.st	Tue Jan 21 18:32:28 1997 +0100
@@ -364,6 +364,26 @@
     IncludeHostNameInLabel := aBoolean
 
     "Modified: 24.4.1996 / 09:09:21 / cg"
+!
+
+takeFocusWhenMapped
+    ^ TakeFocusWhenMapped 
+
+    "
+     StandardSystemView takeFocusWhenMapped
+    "
+!
+
+takeFocusWhenMapped:aBoolean
+    "if turned on, topViews will grab the keyboard when mapped.
+     This is useful on systems like openView, where a view needs a click
+     otherwise"
+
+    TakeFocusWhenMapped := aBoolean
+
+    "
+     StandardSystemView takeFocusWhenMapped:true
+    "
 ! !
 
 !StandardSystemView class methodsFor:'startup'!
@@ -1211,5 +1231,5 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.59 1997-01-13 22:12:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.60 1997-01-21 17:32:28 cg Exp $'
 ! !