--- 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>\\'