diff -r 1f898443e253 -r c7b003c5b013 UIHelpTool.st
--- a/UIHelpTool.st	Wed Feb 15 18:24:39 2006 +0100
+++ b/UIHelpTool.st	Wed Feb 15 18:24:47 2006 +0100
@@ -621,12 +621,30 @@
     ^ editModel.
 !
 
+enablingCommitButtonsHolder
+    "returns the enabling of the commit of this tool as value holder"
+
+    masterApplication notNil ifTrue:[
+        ^ masterApplication enablingCommitButtonsHolder
+    ].
+    ^ contentsModifiedChannel
+!
+
 helpTextView
     "the editView which keeps the current help contents assigned to the key
     "
     ^ helpTextView
 !
 
+infoLabelHolder
+    "returns the info label as value holder"
+
+    masterApplication notNil ifTrue:[
+        ^ masterApplication infoLabelHolder
+    ].
+    ^ super infoLabelHolder
+!
+
 keyItemListHolder
     "holder, which keeps the current hierarchical list
      assigned to the selected class item
@@ -647,24 +665,6 @@
     "model which keeps the current selected helpKey or nil
     "
     ^ keyItemModel.
-!
-
-valueOfEnablingCommitButtons
-    "returns the enabling of the commit of this tool as value holder
-    "
-    masterApplication notNil ifTrue:[
-	^ masterApplication valueOfEnablingCommitButtons
-    ].
-    ^ contentsModifiedChannel
-!
-
-valueOfInfoLabel
-    "returns the info label as value holder
-    "
-    masterApplication notNil ifTrue:[
-        ^ masterApplication infoLabelHolder
-    ].
-    ^ super valueOfInfoLabel
 ! !
 
 !UIHelpTool methodsFor:'building'!
@@ -781,29 +781,29 @@
     key := self helpKey.
 
     modifiedHolder notNil ifTrue:[
-	modifiedHolder value:true
+        modifiedHolder value:true
     ].
 
     contentsModifiedChannel value:false.
 
     key notNil ifTrue:[
-	keyItemModel value = key ifTrue:[^ self].
+        keyItemModel value = key ifTrue:[^ self].
 
-	classItemList reverseDo:[:root| |item|
-	    item := root detectItemWithKey:key.
+        classItemList reverseDo:[:root| |item|
+            item := root detectItemWithKey:key.
 
-	    item notNil ifTrue:[
-		classItemModel value:root.
-		keyItemModel   value:item.
-		^ self.
-	    ].
-	].
+            item notNil ifTrue:[
+                classItemModel value:root.
+                keyItemModel   value:item.
+                ^ self.
+            ].
+        ].
 
-	masterApplication isNil ifTrue:[
-	    "entered a new helpKey
-	    "
-	    self valueOfEnablingCommitButtons value:true.
-	].
+        masterApplication isNil ifTrue:[
+            "entered a new helpKey
+            "
+            self enablingCommitButtonsHolder value:true.
+        ].
     ].
     keyItemModel value:nil.
 !