--- a/UIPainterView.st	Wed Mar 19 14:25:40 2003 +0100
+++ b/UIPainterView.st	Wed Apr 02 18:54:10 2003 +0200
@@ -1019,24 +1019,23 @@
 !
 
 generateCodeFrom:aListOfSelectors in:aClass do:aBlock
+    |realSelectors redefCondition redefMessage|
+
+    realSelectors := aListOfSelectors select:[:sel | sel isArray not].
 
     self class redefineAspectMethods ifTrue:[
-        aListOfSelectors do:[:aSelector|
-            (aSelector isArray or:[aClass includesSelector:aSelector]) ifFalse:[
-                aBlock value:aSelector asSymbol
-            ] ifTrue:[
-                Transcript showCR:'#' , aSelector , ' skipped - already implemented in the class'
-            ]
-        ]
+        redefCondition := [:cls :sel | (cls includesSelector:sel) not].
+        redefMessage := ' skipped - already implemented in the class'.
     ] ifFalse:[
-        aListOfSelectors do:[:aSelector|
-            aSelector isArray ifFalse:[
-                (aClass canUnderstand:aSelector) ifFalse:[
-                    aBlock value:aSelector asSymbol
-                ] ifTrue:[
-                    Transcript showCR:'#' , aSelector , ' skipped - already implemented in the class (or superclass)'
-                ]
-            ]
+        redefCondition := [:cls :sel | (cls canUnderstand:sel) not].
+        redefMessage := ' skipped - already implemented in the class (or superclass)'.
+    ].
+
+    realSelectors do:[:aSelector|
+        (redefCondition value:aClass value:aSelector) ifTrue:[
+            aBlock value:aSelector asSymbol
+        ] ifFalse:[
+            Transcript showCR:('#' , aSelector , redefMessage)
         ]
     ]
 !