--- a/UIPainterView.st Fri Jun 27 18:09:05 1997 +0200
+++ b/UIPainterView.st Fri Jun 27 18:11:19 1997 +0200
@@ -616,11 +616,33 @@
code := code , thisCode
]
].
+ aProp spec valueSelectors do:[:aSel|
+ (cls implements:aSel asSymbol) ifFalse:[
+ thisCode := (self generateValueMethodFor:aSel spec:protoSpec inClass:cls).
+ code := code , thisCode
+ ]
+ ].
].
^ code
!
+generateValueMethodFor:aspect spec:protoSpec inClass:targetClass
+ ^ ('!!' , targetClass name , ' methodsFor:''values''!!\\' ,
+ aspect , '\' ,
+ ' "automatically generated by UIPainter ..."\' ,
+ '\' ,
+ ' "value to be added below ..."\' ,
+ ' Transcript showCR:self class name , '': no value yet for ' , aspect , ' ...''.\' ,
+ '\' ,
+ '^ nil.' ,
+ '!! !!\\') withCRs
+
+
+
+
+!
+
generateWindowSpecMethodSource
|t s spec specArray str code category cls mthd|