--- a/View.st	Tue Jan 06 13:10:57 2015 +0100
+++ b/View.st	Tue Jan 06 13:11:21 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libview' }"
 
+"{ NameSpace: Smalltalk }"
+
 SimpleView subclass:#View
 	instanceVariableNames:'model aspectMsg changeMsg menuMsg menuHolder menuPerformer
 		enableChannel foregroundChannel backgroundChannel'
@@ -757,14 +759,16 @@
     |firstInputField firstConsumer firstCursorConsumer consumer|
 
     self allSubViewsDo:[:v |
-        (firstInputField isNil and:[v isInputField]) ifTrue:[
-            firstInputField := v
-        ].
-        (firstConsumer isNil and:[v isKeyboardConsumer]) ifTrue:[
-            firstConsumer := v
-        ].
-        (firstCursorConsumer isNil and:[v isCursorKeyConsumer]) ifTrue:[
-            firstCursorConsumer := v
+        v shown ifTrue:[
+            (firstInputField isNil and:[v isInputField]) ifTrue:[
+                firstInputField := v
+            ].
+            (firstConsumer isNil and:[v isKeyboardConsumer]) ifTrue:[
+                firstConsumer := v
+            ].
+            (firstCursorConsumer isNil and:[v isCursorKeyConsumer]) ifTrue:[
+                firstCursorConsumer := v
+            ].
         ].
     ].
     self preferFirstInputFieldWhenAssigningInitialFocus ifTrue:[
@@ -821,6 +825,6 @@
 !View class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.86 2014-11-21 13:59:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.87 2015-01-06 12:11:21 cg Exp $'
 ! !