# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1255366363 -7200
# Node ID 347a0b26e21053b1936ef55d49da82070ab83f75
# Parent  ff815b56c808a9ebca4d0acd8ed40f8712b0b9c5
changed: #doBrowseAspectMethod:nameAs:
whichClassImplements: is obsolete.

diff -r ff815b56c808 -r 347a0b26e210 UIPainter.st
--- a/UIPainter.st	Mon Oct 12 09:35:01 2009 +0200
+++ b/UIPainter.st	Mon Oct 12 18:52:43 2009 +0200
@@ -5035,9 +5035,9 @@
         ^ self
     ].
 
-    implementingClass := (cls whichClassImplements:aspect asSymbol).
+    implementingClass := (cls whichClassIncludesSelector:aspect asSymbol).
     implementingClass isNil ifTrue:[
-        implementingClass := (cls class whichClassImplements:aspect asSymbol).
+        implementingClass := (cls class whichClassIncludesSelector:aspect asSymbol).
     ].
     implementingClass isNil ifTrue:[
         answer := OptionBox
@@ -6762,6 +6762,10 @@
 
 version
     ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
 ! !
 
 UIPainter initialize!