# HG changeset patch
# User tz
# Date 890419093 -3600
# Node ID 688fd0a0b0fd6544a5e630866ac71bf15f9d3bd4
# Parent  c94606aecebfc776874b78a74ba2d95fa68ec077
code generation comment

diff -r c94606aecebf -r 688fd0a0b0fd UIPainterView.st
--- 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>\\'