--- a/UIHelpTool.st Mon Aug 28 19:48:41 2006 +0200
+++ b/UIHelpTool.st Tue Aug 29 13:23:02 2006 +0200
@@ -1040,24 +1040,26 @@
!
cancel
- "cancel modifications, reload helpText
- "
+ "cancel modifications, reload helpText"
+
|item contents modified|
item := keyItemModel value.
modified := false.
item notNil ifTrue:[
- contents := item helpText.
+ contents := item helpText.
] ifFalse:[
- contents := nil.
+ contents := nil.
- modifiedHolder isNil ifTrue:[
- modified := self helpKey notNil
- ]
+ modifiedHolder isNil ifTrue:[
+ modified := self helpKey notNil
+ ]
].
helpTextView contents:contents.
contentsModifiedChannel value:modified.
+
+ "Modified: / 29-08-2006 / 10:20:37 / cg"
!
doDelete