--- a/UIHelpTool.st	Mon Feb 25 20:56:30 2002 +0100
+++ b/UIHelpTool.st	Mon Feb 25 21:02:03 2002 +0100
@@ -12,6 +12,8 @@
 
 
 
+"{ Package: 'stx:libtool2' }"
+
 ToolApplicationModel subclass:#UIHelpTool
 	instanceVariableNames:'specClass specSelector dictionary dictionaries listSelection
 		maxCharsPerLine modifiedHolder modified'
@@ -665,7 +667,7 @@
     (specClass isClass and: [specClass isLoaded])
     ifTrue: 
     [                                               
-        (specClass class implements:specSelector) ifFalse:[
+        (specClass class includesSelector:specSelector) ifFalse:[
             dictionaries at: specClass name put: dictionary 
         ].
         list := self listOfHelpSpecClasses.
@@ -684,7 +686,6 @@
     ].
 
     self updateList
-
 ! !
 
 !UIHelpTool methodsFor:'callbacks'!
@@ -729,7 +730,7 @@
     specClass isClass
     ifTrue:
     [
-        (specClass class implements: specSelector)
+        (specClass class includesSelector: specSelector)
         ifFalse: 
         [
             ^specSelector isNil 
@@ -739,9 +740,6 @@
         ^specClass name, ' >> ', specSelector
     ].
     ^'No class and selector defined.'
-
-
-
 !
 
 openDocumentation
@@ -797,8 +795,8 @@
 
     |helpSpecSuperClass superHelpSpecKeys helpSpec|
 
-    ((aClass class implements: specSelector)
-    and: [(helpSpecSuperClass := aClass allSuperclasses detect: [:cls| cls class implements: specSelector] ifNone: nil) notNil])
+    ((aClass class includesSelector: specSelector)
+    and: [(helpSpecSuperClass := aClass allSuperclasses detect: [:cls| cls class includesSelector: specSelector] ifNone: nil) notNil])
     ifTrue:[                  
         superHelpSpecKeys := helpSpecSuperClass helpSpec keys.
         helpSpec := Dictionary new.
@@ -891,7 +889,7 @@
         helpSpec at: h key put: (self getUnformattedHelpText: h value)
     ].
 
-    (cls class implements: specSelector) 
+    (cls class includesSelector: specSelector) 
     ifTrue: 
     [
         |superclassHelpKeys implementedHelpSpec hasChanged|
@@ -1093,7 +1091,7 @@
         msg := aString asCollectionOfWords.
         (msg size == 2 and:
         [(cls := self resolveName:(msg at:1)) notNil and:
-        [cls class implements: (sel := (msg at: 2) asSymbol)]])
+        [cls class includesSelector: (sel := (msg at: 2) asSymbol)]])
         ifTrue:
         [               
             self buildFromClass: (specClass := cls name) andSelector: (specSelector := sel).
@@ -1101,7 +1099,6 @@
         ]
     ].
     ^false
-
 !
 
 openInterface:aSymbol