--- a/UIPainter.st	Sat Mar 06 13:48:59 1999 +0100
+++ b/UIPainter.st	Sat Mar 06 18:12:24 1999 +0100
@@ -2792,26 +2792,28 @@
     aspects := IdentityDictionary new.
 
     aspects at:#classNameChannel put:(
-	(specClass notNil ifTrue:[specClass]
-			 ifFalse:['NewApplication']) asValue
+        (specClass notNil ifTrue:[specClass]
+                         ifFalse:['NewApplication']) asValue
     ).
     specSuperclass isNil ifTrue:[
-	specClass notNil ifTrue:[
-	    (cls := self resolveName:specClass) notNil ifTrue:[
-		specSuperclass := cls superclass name.
-	    ]
-	]
+        specClass notNil ifTrue:[
+            (cls := self resolveName:specClass) notNil ifTrue:[
+                specSuperclass := cls superclass name.
+            ]
+        ]
     ].
     aspects at:#superclassNameChannel put:(
-	(specSuperclass notNil ifTrue:[specSuperclass]
-			 ifFalse:['ApplicationModel']) asValue
+        (specSuperclass notNil ifTrue:[specSuperclass]
+                         ifFalse:['ApplicationModel']) asValue
     ).
     aspects at:#superclassNameDefaults put:#('ApplicationModel' 'SimpleDialog') asValue.
     aspects at:#methodNameChannel put:(
-	(specSelector notNil ifTrue:[specSelector asValue]
-			    ifFalse:[#windowSpec]) asValue
+        (specSelector notNil ifTrue:[specSelector asValue]
+                            ifFalse:[#windowSpec]) asValue
     ).
 
+    "/ the canvas ...
+
     treeView    := TreeView new.
     painterView := StandardSystemView new.
     painterView name: self class defaultNameOfCanvas.
@@ -2827,13 +2829,15 @@
 
     super openInterface:aSymbol.
 
+
     topView := self window.
-
     topView label:'GUI Painter'.
 
     painterView openInGroup:(topView windowGroup).
     painterView application:self.
 
+    "/ the selectionPanel ...
+
     selectionPanel := UISelectionPanel new.
     selectionPanel allButOpenInterface:#windowSpec.
     selectionPanel window openInGroup:(topView windowGroup).
@@ -2843,14 +2847,14 @@
     topView iconLabel:'GUI Painter'.
     topView icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100).
 
-    painterView iconLabel:'GUI Painter'.
+    painterView iconLabel:'GUI Canvas'.
     painterView icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100).
 
     topView bePartner.
     painterView bePartner.
     selectionPanel window bePartner.
 
-    selectionPanel window iconLabel:'GUI Painter'.
+    selectionPanel window iconLabel:'GUI Gallery'.
     selectionPanel window icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100).
 !