--- a/UIPainterView.st Fri Feb 18 14:36:25 2000 +0100
+++ b/UIPainterView.st Tue Feb 22 16:35:23 2000 +0100
@@ -808,8 +808,9 @@
].
code := code, thisCode.
definedMethodSelectors add:sym.
+ Transcript showCR:'code generated for aspect: ' , sym
] ifTrue:[
- Transcript showCR:'no code generated for aspect: ' , sym , ' (method already exists)'
+ Transcript showCR:'*** no code generated for aspect: ' , sym , ' (method already exists)'
].
].
].
@@ -824,6 +825,7 @@
thisCode := (self generateAspectMethodFor:aSel spec:protoSpec inClass:cls).
code := code , thisCode.
definedMethodSelectors add:sym.
+ Transcript showCR:'code generated for aspect: ' , sym
]
].
@@ -839,6 +841,7 @@
thisCode := (self generateAspectSetMethodFor:aspect spec:protoSpec inClass:cls).
code := code , thisCode.
definedMethodSelectors add:sym.
+ Transcript showCR:'export code generated for aspect: ' , sym
]
].
@@ -851,6 +854,7 @@
thisCode := (self generateActionMethodFor:aSel spec:protoSpec inClass:cls).
code := code , thisCode.
definedMethodSelectors add:sym.
+ Transcript showCR:'action generated for aspect: ' , sym
]
].
@@ -865,6 +869,7 @@
thisCode := (self generateValueMethodFor:aSel spec:protoSpec inClass:cls).
code := code , thisCode.
definedMethodSelectors add:sym.
+ Transcript showCR:'code generated for aspect: ' , sym
]
]
].