--- a/WindowBuilder.st	Mon Mar 03 16:36:52 1997 +0100
+++ b/WindowBuilder.st	Mon Mar 03 20:24:28 1997 +0100
@@ -12,7 +12,7 @@
 
 Object subclass:#WindowBuilder
 	instanceVariableNames:'window application bindings visuals focusSequence namedComponents
-		componentCreationHook applicationClass'
+		componentCreationHook applicationClass keyboardProcessor'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Support-UI'
@@ -152,6 +152,16 @@
     ^ focusSequence
 !
 
+keyboardProcessor
+    keyboardProcessor isNil ifTrue:[
+        keyboardProcessor := KeyboardProcessor new    
+    ].
+    ^ keyboardProcessor
+
+    "Created: 3.3.1997 / 18:31:37 / cg"
+    "Modified: 3.3.1997 / 18:32:27 / cg"
+!
+
 namedComponents
     ^ namedComponents
 !
@@ -387,11 +397,18 @@
 open
     "open my topView, as previously created"
 
+    |type|
+
+    application isNil ifTrue:[
+        type := #normal
+    ] ifFalse:[
+        type := application defaultWindowType
+    ].
     self 
         openWithExtent:nil
-        andType:(application defaultWindowType)
+        andType:type
 
-    "Modified: 17.1.1997 / 19:59:22 / cg"
+    "Modified: 3.3.1997 / 19:43:57 / cg"
 !
 
 openAt:aPoint
@@ -530,5 +547,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.30 1997-03-03 15:36:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.31 1997-03-03 19:24:28 cg Exp $'
 ! !