# HG changeset patch
# User ca
# Date 867427879 -7200
# Node ID 8091a35bccf161c8b9b1151b3e0512023d5f9636
# Parent  fa52e7ad5cb2faa079c2f0e3148be3852117dc9c
generateValueMethodFor:aspect spec:protoSpec inClass:targetClass

diff -r fa52e7ad5cb2 -r 8091a35bccf1 UIPainterView.st
--- 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|