#TUNING by cg
authorClaus Gittinger <cg@exept.de>
Sun, 08 May 2016 02:26:07 +0200
changeset 3293 911a495e2ed7
parent 3292 f29412454cd5
child 3294 29f61473d4a5
#TUNING by cg class: UIPainterView changed: #listOfAspects #listOfCallbacks
UIPainterView.st
--- a/UIPainterView.st	Fri May 06 04:58:41 2016 +0200
+++ b/UIPainterView.st	Sun May 08 02:26:07 2016 +0200
@@ -1766,7 +1766,7 @@
     cls notNil ifTrue:[
         cls withAllSuperclassesDo:[:cls |
             cls methodsDo:[:m |
-                ((m resources ? #()) includesAny:#(uiAspect)) ifTrue:[
+                ((m resources ? #()) includes:#uiAspect) ifTrue:[
                     aspects add:m selector
                 ].                  
             ]
@@ -1799,7 +1799,7 @@
     cls := self targetClass.
     cls notNil ifTrue:[
         cls methodsDo:[:m |
-            ((m resources ? #()) includesAny:#(uiCallback)) ifTrue:[
+            ((m resources ? #()) includes:#uiCallback) ifTrue:[
                 aspects add:m selector
             ].                  
         ]