--- a/UIHelpTool.st Fri Jan 02 17:03:12 1998 +0100
+++ b/UIHelpTool.st Mon Jan 05 09:33:12 1998 +0100
@@ -401,18 +401,22 @@
accept
"accept the text
"
- |view key txt list|
+ |view key txt list listChgd|
(listSelection size == 0 or:[(view := self editTextView) isNil]) ifFalse:[
- txt := view contents asString.
- key := listSelection asSymbol.
- list := self listChannel value.
+ txt := view contents asString.
+ key := listSelection asSymbol.
+ list := self listChannel value.
- (dictionary at:key ifAbsent:nil) isNil ifTrue:[
+ (listChgd := (dictionary at:key ifAbsent:nil) isNil) ifTrue:[
list add:key.
].
dictionary at:key put:txt.
isModified := true.
+
+ listChgd ifTrue:[
+ self updateList
+ ]
]
!