--- a/WinBuilder.st	Tue Jun 06 06:07:55 1995 +0200
+++ b/WinBuilder.st	Tue Jun 06 06:10:38 1995 +0200
@@ -2,7 +2,7 @@
 	 instanceVariableNames:'topView application bindings aspects focusSequence'
 	 classVariableNames:''
 	 poolDictionaries:''
-	 category:'Interface-Support'
+	 category:'Interface-Support-UI'
 !
 
 !WindowBuilder class methodsFor:'documentation'!
@@ -78,14 +78,31 @@
 !
 
 open
+    "open my topView, as previously created"
+
     self openWithExtent:nil andType:#normal 
 !
 
+openWithExtent:aPoint
+    "open my topView, as previously created, but override
+     the extent."
+
+    self openWithExtent:aPoint andType:#normal 
+!
+
 openDialog
+    "open my topView, as previously created as a modal view,
+     blocking interaction to the currently active view."
+
     self openWithExtent:nil andType:#dialog
 !
 
 openWithExtent:ext andType:type
+    "open my topView, as previously created. The type argument
+     may be #dialog or #normal, and specifies if the view should
+     be opened as a modal view, blocking interaction to the currently 
+     active view, or as a normal view."
+
     ext notNil ifTrue:[
 	topView extent:ext
     ].
@@ -98,13 +115,12 @@
 	topView open.
 	^ self
     ].
+    "
+     if ST-80 supports more types - these may be added later
+    "
     self halt:'unimplemented'
 !
 
-openWithExtent:aPoint
-    self openWithExtent:aPoint andType:#normal 
-!
-
 closeRequest
     topView destroy
 ! !