--- a/UIPainterView.st	Fri Mar 20 19:34:46 1998 +0100
+++ b/UIPainterView.st	Fri Mar 20 19:38:13 1998 +0100
@@ -4,7 +4,7 @@
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
- inclusion of the above copyright notice.   This software may not
+ inclusion of the above copyright notice. This software may not
  be provided or otherwise made available to, or used by, any
  other person.  No title to or ownership of the software is
  hereby transferred.
@@ -13,7 +13,7 @@
 UIObjectView subclass:#UIPainterView
 	instanceVariableNames:'treeView listHolder superclassName className methodName
 		categoryName'
-	classVariableNames:'HandCursor RedefineMethods'
+	classVariableNames:'HandCursor RedefineAspectMethods'
 	poolDictionaries:''
 	category:'Interface-UIPainter'
 !
@@ -34,7 +34,7 @@
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
- inclusion of the above copyright notice.   This software may not
+ inclusion of the above copyright notice. This software may not
  be provided or otherwise made available to, or used by, any
  other person.  No title to or ownership of the software is
  hereby transferred.
@@ -58,19 +58,19 @@
 
 !UIPainterView class methodsFor:'code generation mode'!
 
-redefineMethods
+redefineAspectMethods
     "redefine methods yes or no. If a method is defined in super class
      should the message be reinstalled ?
     "
-    ^ RedefineMethods ? false
+    ^ RedefineAspectMethods ? false
 
 !
 
-redefineMethods:aBool
+redefineAspectMethods:aBoolean
     "redefine methods yes or no. If a method is defined in super class
      should the message be reinstalled ?
     "
-    RedefineMethods := aBool
+    RedefineAspectMethods := aBoolean
 
 
 ! !
@@ -865,17 +865,14 @@
             , '!!' , '\\'
 
             , methodName , '\'
-            , '    "this window spec was automatically generated by the ST/X UIPainter"\\'
-            , '    "do not manually edit this - the painter/builder may not be able to\'
-            , '     handle the specification if its corrupted."\\'
-            , '    "\'
+            , ((ResourceSpecEditor codeGenerationCommentForClass: UIPainter) replChar:$!! withString:'!!!!')
+            , '\\    "\'
             , ('     UIPainter new openOnClass:' , className , ' andSelector:#' , methodName , '\')
             , ('     ' , className , ' new openInterface:#' , methodName , '\')
+            ,(methodName = 'windowSpec' 
+                ifTrue:['     ' , className , ' open\'] ifFalse: [''])
             , '    "\'.
 
-    methodName = 'windowSpec' ifTrue:[
-        code := code , '    "' , className , ' open"\'
-    ].
     code := code 
             , '\'
             , '    <resource: #canvas>\\'