# HG changeset patch
# User tz
# Date 885501824 -3600
# Node ID fb5b5ecf7e86f40fd636e1bfcea9a6ec0de9cbb9
# Parent  daa7b41dd2e3c9fd524c740bf8cebc3533f6a5b0
set modified if help text has changed

diff -r daa7b41dd2e3 -r fb5b5ecf7e86 UIHelpTool.st
--- a/UIHelpTool.st	Thu Jan 22 21:06:47 1998 +0100
+++ b/UIHelpTool.st	Thu Jan 22 21:43:44 1998 +0100
@@ -348,6 +348,7 @@
         key := aKey asString
     ].
     self listModel value:key
+
 !
 
 helpSpecFrom:aClass
@@ -375,7 +376,17 @@
 
     (modifiedHolder := aValueHolder) notNil ifTrue:[
         modifiedHolder addDependent:self.
-    ].
+
+        self editTextView notNil ifTrue: [
+            self editTextView modifiedChannel onChangeSend:#value to:[
+                modifiedHolder notNil ifTrue:[
+                    self editTextView modifiedChannel value ifTrue:[
+                        modifiedHolder value:true
+                    ]
+                ]
+            ]
+        ]
+    ]
 
 
 !
@@ -645,7 +656,8 @@
                     txt := UIPainter convertString:(txt asString) maxLineSize:maxCharsPerLine skipLineFeed:false.
                 ]
             ].
-            view contents:txt.    
+            view contents:txt.
+            view modified:false.
         ]
     ]
 
@@ -656,7 +668,7 @@
 closeRequest
 
     (isModified and:[self masterApplication isNil]) ifTrue:[
-        (self confirm:'quit without without saving your modifications ?') ifFalse:[
+        (self confirm:'Exit without saving your modifications?') ifFalse:[
             ^ self
         ]
     ].