--- 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
                         ]
                     ]
                 ].