--- a/UIPainterView.st Mon Oct 11 17:54:39 1999 +0200
+++ b/UIPainterView.st Mon Oct 11 17:55:21 1999 +0200
@@ -665,15 +665,20 @@
!
generateAspectMethodFor:aspect spec:protoSpec inClass:targetClass
- |modelClass modelValue modelGen code|
+ |modelClass modelValueString modelValue modelGen code|
modelClass := protoSpec defaultModelClassFor:aspect.
- modelValue := protoSpec defaultModelValueFor:aspect.
+ modelValueString := protoSpec defaultModelValueStringFor:aspect.
+ modelValueString notNil ifTrue:[
+ modelGen := modelValueString
+ ] ifFalse:[
+ modelValue := protoSpec defaultModelValueFor:aspect.
+ modelValue isNil ifTrue:[
+ modelGen := modelClass name , ' new'
+ ] ifFalse:[
+ modelGen := modelValue storeString , ' asValue'
+ ].
- modelValue isNil ifTrue:[
- modelGen := modelClass name , ' new'
- ] ifFalse:[
- modelGen := modelValue storeString , ' asValue'
].
code := '!!' , targetClass name , ' methodsFor:''aspects''!!\\' ,