--- a/UIPainterView.st Sat Feb 21 15:40:27 1998 +0100
+++ b/UIPainterView.st Sat Feb 21 16:21:44 1998 +0100
@@ -564,7 +564,7 @@
!
generateAspectMethodFor:aspect spec:protoSpec inClass:targetClass
- |modelClass modelValue modelGen|
+ |modelClass modelValue modelGen code|
modelClass := protoSpec defaultModelClassFor:aspect.
modelValue := protoSpec defaultModelValueFor:aspect.
@@ -575,12 +575,14 @@
modelGen := modelValue storeString , ' asValue'
].
- ^ ('!!' , targetClass name , ' methodsFor:''aspects''!!\\' ,
+ code := '!!' , targetClass name , ' methodsFor:''aspects''!!\\' ,
aspect , '\' ,
' "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 in the browser."\'.
+
+ code := (code ,
'\' ,
' |holder|\' ,
'\' ,
@@ -588,7 +590,8 @@
' builder aspectAt:#' , aspect , ' put:(holder := ' , ' ' , modelGen , ').\' ,
' ].\' ,
' ^ holder\' ,
- '!! !!\\') withCRs
+ '!! !!\\') withCRs.
+ ^ code
"Modified: / 26.10.1997 / 19:01:15 / cg"
!
@@ -803,8 +806,8 @@
, ' "do not manually edit this - the painter/builder may not be able to\'
, ' handle the specification if its corrupted."\\'
, ' "\'
- , ' UIPainter new openOnClass:' , className , ' andSelector:#' , methodName , '\'
- , ' ' , className , ' new openInterface:#' , methodName , '\'
+ , (' UIPainter new openOnClass:' , className , ' andSelector:#' , methodName , '\')
+ , (' ' , className , ' new openInterface:#' , methodName , '\')
, ' "\'.
methodName = 'windowSpec' ifTrue:[