--- a/UIPainterView.st Thu Feb 17 16:01:27 2000 +0100
+++ b/UIPainterView.st Fri Feb 18 14:36:25 2000 +0100
@@ -906,11 +906,12 @@
spec size == 0 ifTrue:[^ nil].
"/ make it an array ...
- spec := spec collect:[:entry |
- entry type isNil ifTrue:[
- entry subAspect
+ spec := spec collect:[:entry | |subAspect type|
+ subAspect := entry subAspect asSymbol.
+ (type := entry type) isNil ifTrue:[
+ subAspect
] ifFalse:[
- Array with:entry subAspect with:entry type
+ Array with:subAspect with:type asSymbol
].
].
spec := spec asArray.
@@ -928,10 +929,14 @@
these can be connected to aspects of an embedding application
(if this app is embedded in a subCanvas)."
- ^ ' , spec storeString , '\!!\'.
+ ^ #(\'.
+ spec do:[:el | code := code , (' ' , el storeString , '\') ].
+ code := code , ' ).\'.
+ code := code , '\!!\'.
code := code withCRs.
^ code
+ "Modified: / 18.2.2000 / 02:08:34 / cg"
!
generateAspectSetMethodFor:aspect spec:protoSpec inClass:targetClass