UIPainter.st
changeset 2629 61f3f3a13b9e
parent 2615 347a0b26e210
child 2655 b1fb14b65b57
--- 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)