--- a/UIPainterView.st Wed Sep 22 11:37:36 1999 +0200
+++ b/UIPainterView.st Wed Sep 22 13:24:33 1999 +0200
@@ -56,6 +56,16 @@
"
! !
+!UIPainterView class methodsFor:'initialization'!
+
+initialize
+
+ AspectsAsInstances := false.
+ RedefineAspectMethods := false.
+
+ "Created: / 22.9.1999 / 12:32:31 / stefan"
+! !
+
!UIPainterView class methodsFor:'code generation mode'!
generateAspectsAsInstanceVariables
@@ -82,8 +92,9 @@
"redefine methods yes or no. If a method is defined in super class
should the message be reinstalled ?
"
- ^ RedefineAspectMethods ? false
+ ^ RedefineAspectMethods
+ "Modified: / 22.9.1999 / 12:33:03 / stefan"
!
redefineAspectMethods:aBoolean
@@ -670,7 +681,7 @@
' "automatically generated by UIPainter ..."\\' ,
' "*** the code below creates a default model when invoked."\' ,
' "*** (which may not be the one you wanted)"\' ,
- ' "*** Please change as required and accept in the browser."\'.
+ ' "*** Please change as required and accept it in the browser."\'.
AspectsAsInstances ifTrue:[
code := (code , '\' ,
@@ -684,7 +695,8 @@
' |holder|\' ,
'\' ,
' (holder := builder bindingAt:#' , aspect , ') isNil ifTrue:[\' ,
- ' builder aspectAt:#' , aspect , ' put:(holder := ' , ' ' , modelGen , ').\' ,
+ ' holder := ', modelGen, '.\',
+ ' builder aspectAt:#' , aspect , ' put:holder.\',
' ].\' ,
' ^ holder.\' ,
'!! !!\\')
@@ -692,6 +704,7 @@
^ code withCRs
"Modified: / 29.7.1998 / 11:29:16 / cg"
+ "Modified: / 22.9.1999 / 12:33:47 / stefan"
!
generateAspectMethods
@@ -2021,3 +2034,4 @@
version
^ '$Header$'
! !
+UIPainterView initialize!