--- a/UIHelpTool.st	Fri Feb 21 11:24:49 2003 +0100
+++ b/UIHelpTool.st	Fri Feb 21 11:25:12 2003 +0100
@@ -28,7 +28,7 @@
 !
 
 HierarchicalItem subclass:#KeyItem
-	instanceVariableNames:'helpKey helpText modified icon'
+	instanceVariableNames:'helpKey helpText flyByText modified icon'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:UIHelpTool
@@ -575,9 +575,9 @@
 !
 
 specSelector
-    "returns the selector on which the class is opened
+    "returns the selector of the edited helpSpec method
     "
-    ^ specSelector
+    ^ specSelector ? #helpSpec
 ! !
 
 !UIHelpTool methodsFor:'aspects'!
@@ -697,16 +697,16 @@
     "reads the help dictionary from aClass and find remaining classes 
      'between' aClass and ApplicationModel
     " 
-    |lastContents root list resource|
+    |lastContents root list resource helpSpecSelector|
 
-    specSelector isNil ifTrue:[ specSelector := #helpSpec ].
+    helpSpecSelector := self specSelector.
     specClass := self getHelpSpecClassFromClass:aClass.
 
     list := OrderedCollection new.
 
     (specClass isClass and:[specClass isLoaded]) ifTrue:[
         lastContents := nil.
-        resource := specClass name, ' ', specSelector.
+        resource := specClass name, ' ', helpSpecSelector.
         self addToHistory:(Association key:resource value:#'loadFromMessage:').
 
         specClass withAllSuperclasses reverse do:[:aClass| |value name|
@@ -717,8 +717,8 @@
             ] ifFalse:[
                 root := ClassItem onClass:aClass.
 
-                (aClass class includesSelector:specSelector) ifTrue:[
-                    value := aClass perform:specSelector.
+                (aClass class includesSelector:helpSpecSelector) ifTrue:[
+                    value := aClass perform:helpSpecSelector.
 
                     value keysAndValuesDo:[:k :v| |cval|
                         cval := lastContents at:k ifAbsent:self.
@@ -1123,12 +1123,12 @@
     "opens a Resource Selection Browser in order to get a resource message
     "
     self loadFromMessage: 
-	(ResourceSelectionBrowser
-	    request: 'Load Help Spec From Class'
-	    onSuperclass: nil
-	    andClass: specClass
-	    andSelector: specSelector ? #help
-	    withResourceTypes: (Array with: #help)).
+        (ResourceSelectionBrowser
+            request: 'Load Help Spec From Class'
+            onSuperclass: nil
+            andClass: specClass
+            andSelector: (self specSelector)
+            withResourceTypes: (Array with: #help)).
 
     self updateInfoLabel
 !
@@ -1153,7 +1153,9 @@
         ^ nil
     ].
 
-    classItemList do:[:aClassItem| aClassItem createHelpMethodNamed:specSelector ].
+    classItemList do:[:aClassItem| 
+        aClassItem createHelpMethodNamed:(self specSelector) 
+    ].
 !
 
 openDocumentation
@@ -1359,7 +1361,7 @@
 
 !UIHelpTool::KeyItem class methodsFor:'instance creation'!
 
-helpKey:aKey helpText:aText
+helpKey:aKey helpText:aText 
     |key|
 
     key := self new.
@@ -1382,7 +1384,7 @@
 !
 
 helpText:aText
-    "set the contents assigned to the helpKey; if the cxontents changed,
+    "set the contents assigned to the helpKey; if the contents changes,
      a notification is raised.
     "
     |text|
@@ -1390,11 +1392,11 @@
     text := self formatText:aText.
 
     text ~= helpText ifTrue:[
-	helpText := text.
+        helpText := text.
 
-	(modified or:[parent isNil]) ifFalse:[
-	    parent helpTextChangedFor:self.
-	]
+        (modified or:[parent isNil]) ifFalse:[
+            parent helpTextChangedFor:self.
+        ]
     ].
 ! !