--- a/UIHelpTool.st Mon Mar 09 21:44:19 1998 +0100
+++ b/UIHelpTool.st Mon Mar 09 21:45:36 1998 +0100
@@ -333,7 +333,7 @@
(dictionaries := aDictionaryOfDictionaries) isNil ifTrue:[
dictionaries := Dictionary new.
].
- self updateList
+ self updateList.
!
dictionary
@@ -429,6 +429,11 @@
]
+!
+
+specClass
+
+ ^specClass
! !
!UIHelpTool methodsFor:'actions'!
@@ -517,7 +522,7 @@
].
aClass = cls name asString
- ifTrue: [self listOfHelpSpecClasses value do: [:c| c ~~ cls name ifTrue: [self installHelpSpecInto: (Smalltalk at: c)]. isModified := true]].
+ ifTrue: [self listOfHelpSpecClasses value do: [:c| c ~~ cls name ifTrue: [self installHelpSpecInto: (Smalltalk at: c). isModified := true]]].
isModified not ifTrue:[
^nil
@@ -543,7 +548,7 @@
helpSpec associationsDo: [:h| (implementedHelpSpec includesAssociation: h) ifFalse: [hasChanged := true]].
(implementedHelpSpec notEmpty and: [hasChanged and:
- [DialogBox confirm: 'Class ', cls name asBoldText, ' already implements\a menu spec!!\\Do only replace, if you have removed\help keys in an existing help spec.\' withCRs yesLabel: ' Merge ' noLabel: ' Replace ']])
+ [DialogBox confirm: 'Class ', cls name asBoldText, ' already implements\a help spec!!\\Do only replace, if you have removed\help keys in an existing help spec.\' withCRs yesLabel: ' Merge ' noLabel: ' Replace ']])
ifTrue:
[
implementedHelpSpec associationsDo: [:h| (helpSpec includesKey: h key)