--- 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)'
]
]
]