--- 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