--- a/WinBuilder.st	Sat May 06 16:15:18 1995 +0200
+++ b/WinBuilder.st	Tue May 09 02:23:22 1995 +0200
@@ -9,7 +9,7 @@
 
 documentation
 "
-    an no-op class, for systems which do not use the UIBuilder.
+    a no-op class, for systems which do not use the UIBuilder.
     Concrete subclasses know how to create a view (with components) from
     some interface spec. Currently, an experimantal version of UIBuilder exists,
     and more may be added in the future (for example, to parse different UI
@@ -47,6 +47,10 @@
     ^ components at:name ifAbsent:nil
 !
 
+window:aView
+    topView := aView
+!
+
 window
     ^ topView
 !