# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 919251334 -3600
# Node ID 0b9fbaecbe8846ae22bb804ffab6599d13724f2a
# Parent  240e51822e153ed164e5f3482a39ecbf65bfcfa1
output a warning on the transcript, when an aspect method
is not generated due to already existing method in class or
superclass.

diff -r 240e51822e15 -r 0b9fbaecbe88 UIPainterView.st
--- 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)'
             ]
         ]
     ]