--- a/UIHelpTool.st Tue Dec 17 15:45:13 2002 +0100
+++ b/UIHelpTool.st Wed Dec 18 12:04:08 2002 +0100
@@ -855,9 +855,9 @@
((aClass class includesSelector: specSelector)
and: [(helpSpecSuperClass := aClass allSuperclasses detect: [:cls| cls class includesSelector: specSelector] ifNone: nil) notNil])
ifTrue:[
- superHelpSpecKeys := helpSpecSuperClass helpSpec keys.
+ superHelpSpecKeys := (helpSpecSuperClass perform:specSelector) keys.
- aClass helpSpec keysAndValuesDo:[:key :value |
+ (aClass perform:specSelector) keysAndValuesDo:[:key :value |
(superHelpSpecKeys includes:key) ifFalse: [
helpSpec at:key put:value
]
@@ -927,10 +927,10 @@
|superclassHelpKeys implementedHelpSpec hasChanged|
implementedHelpSpec := Dictionary new.
superclassHelpKeys := (cls superclass respondsTo: specSelector)
- ifTrue: [cls superclass helpSpec keys]
+ ifTrue: [(cls superclass perform:specSelector) keys]
ifFalse: [Array new].
- cls helpSpec associationsDo: [:h| (superclassHelpKeys includes: h key)
+ (cls perform:specSelector) associationsDo: [:h| (superclassHelpKeys includes: h key)
ifFalse: [implementedHelpSpec at: h key put: h value]].
hasChanged := false.