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