--- a/UIPainterView.st	Wed Feb 17 11:55:19 1999 +0100
+++ b/UIPainterView.st	Wed Feb 17 12:35:34 1999 +0100
@@ -735,6 +735,8 @@
                         ].
                         code := code, thisCode.
                         definedMethodSelectors add:sym.
+                    ] ifTrue:[
+                        Transcript showCR:'no code generated for aspect: ' , sym , ' (method already exists)'
                     ]
                 ]
         ].
@@ -802,12 +804,16 @@
         aListOfSelectors do:[:aSelector|
             (aSelector isArray or:[aClass implements:aSelector]) ifFalse:[
                 aBlock value:aSelector
+            ] ifTrue:[
+                Transcript showCR:'#' , aSelector , ' skipped - already implemented in the class'
             ]
         ]
     ] ifFalse:[
         aListOfSelectors do:[:aSelector|
             (aSelector isArray or:[aClass canUnderstand:aSelector]) ifFalse:[
                 aBlock value:aSelector
+            ] ifTrue:[
+                Transcript showCR:'#' , aSelector , ' skipped - already implemented in the class (or superclass)'
             ]
         ]
     ]