changed: #doBrowseActionMethod:nameAs:
authorClaus Gittinger <cg@exept.de>
Tue, 20 Oct 2009 10:38:40 +0200
changeset 2629 61f3f3a13b9e
parent 2628 57b363325368
child 2630 8d19a544d5da
changed: #doBrowseActionMethod:nameAs: implements: -> includesSelector:
UIPainter.st
--- a/UIPainter.st	Tue Oct 20 00:03:57 2009 +0200
+++ b/UIPainter.st	Tue Oct 20 10:38:40 2009 +0200
@@ -4977,7 +4977,7 @@
         ^ self
     ].
         
-    (cls implements:aspect asSymbol) ifFalse:[
+    (cls includesSelector:aspect asSymbol) ifFalse:[
         (Dialog confirm:(resources 
                             stringWithCRs:'%1 does not implement %2.\\Create ?'
                             with:(cls name allBold)