--- a/UIHelpTool.st Thu Jul 15 14:31:34 1999 +0200
+++ b/UIHelpTool.st Mon Jul 26 09:33:21 1999 +0200
@@ -758,39 +758,36 @@
((aClass class implements: specSelector)
and: [(helpSpecSuperClass := aClass allSuperclasses detect: [:cls| cls class implements: specSelector] ifNone: nil) notNil])
- ifTrue:
- [
+ ifTrue:[
superHelpSpecKeys := helpSpecSuperClass helpSpec keys.
helpSpec := Dictionary new.
- aClass helpSpec associationsDo:
- [:asso|
- (superHelpSpecKeys includes: asso key) ifFalse: [helpSpec at: asso key put: asso value]
+ aClass helpSpec keysAndValuesDo:[:key :value |
+ (superHelpSpecKeys includes:key) ifFalse: [
+ helpSpec at:key put:value
+ ]
].
- ^dictionary := helpSpec
+ ^ dictionary := helpSpec
].
- ^dictionary := Dictionary new
+ ^ dictionary := Dictionary new
!
findHelpSpecForKey: aHelpKey
"finds the help spec class including aHelpKey in its help dictionary and make it current"
- |dictTemp|
+ |dictTemp listOfHelpSpecClasses|
aHelpKey isNil ifTrue: [^nil].
+
dictTemp := dictionary.
- self listOfHelpSpecClasses value do:
- [:clsName|
- (dictionary := dictionaries at: clsName ifAbsent: nil) isNil
- ifTrue:
- [
+ listOfHelpSpecClasses := self listOfHelpSpecClasses.
+ listOfHelpSpecClasses value do:[:clsName|
+ (dictionary := dictionaries at: clsName ifAbsent: nil) isNil ifTrue:[
dictionary := dictionaries at: clsName put: (self extractHelpSpecForClass: (Smalltalk at: clsName))
].
- (dictionary includesKey: aHelpKey asSymbol)
- ifTrue:
- [
+ (dictionary includesKey: aHelpKey asSymbol) ifTrue:[
self updateList.
^(builder componentAt: #listOfHelpSpecClassesView) selection:
- (self listOfHelpSpecClasses value indexOf: clsName).
+ (listOfHelpSpecClasses value indexOf: clsName).
]
].
dictionary := dictTemp