# HG changeset patch
# User tz
# Date 889476336 -3600
# Node ID 7eebac8229857bdca901452ab9c3e356b442cd72
# Parent  61d4a7df2574e42967080d539984d7dd1c146aea
modified bug fixed

diff -r 61d4a7df2574 -r 7eebac822985 UIHelpTool.st
--- 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)