--- a/UIPainter.st	Mon Feb 25 20:56:30 2002 +0100
+++ b/UIPainter.st	Mon Feb 25 21:02:03 2002 +0100
@@ -2173,7 +2173,7 @@
     tableSelector := tableSelector size ~~ 0 ifTrue:[tableSelector asSymbol]
                                             ifFalse:[nil].
 
-    (tableSelector notNil and:[cls class implements:tableSelector]) ifTrue:[
+    (tableSelector notNil and:[cls class includesSelector:tableSelector]) ifTrue:[
         editor openModalOnClass:cls andSelector:tableSelector
     ] ifFalse:[
         columns := specTool specification columns.
@@ -3404,7 +3404,7 @@
 
             again ifFalse:[
                 ((Smalltalk at:specClass asSymbol) notNil
-                and:[ (Smalltalk at:specClass asSymbol) class implements:specSelector ])
+                and:[ (Smalltalk at:specClass asSymbol) class includesSelector:specSelector ])
                 ifTrue:[
                     (self confirm:('%1 already implements %2. Overwrite ?' bindWith:specClass with:specSelector))
                     ifFalse:[
@@ -3703,10 +3703,9 @@
     self updateInfoLabel.
     modified := false.
     painter resetModification.
-    (cls class implements: specSelector) ifTrue:[
+    (cls class includesSelector: specSelector) ifTrue:[
         self addToHistory: (specClass, ' ', specSelector) -> #loadFromMessage:.
     ].
-
 !
 
 doSaveAs