--- 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.
!