--- a/UIHelpTool.st Mon Jul 13 19:07:12 1998 +0200
+++ b/UIHelpTool.st Thu Jul 16 21:11:20 1998 +0200
@@ -539,6 +539,8 @@
modifiedHolder:aValueHolder
"sets the value holder to true in case of modifying attributes"
+ |eTxtView modChannel|
+
modifiedHolder notNil ifTrue:[
modifiedHolder removeDependent:self.
].
@@ -546,10 +548,11 @@
(modifiedHolder := aValueHolder) notNil ifTrue:[
modifiedHolder addDependent:self.
- self editTextView notNil ifTrue: [
- self editTextView modifiedChannel onChangeSend:#value to:[
+ (eTxtView := self editTextView) notNil ifTrue: [
+ modChannel := eTxtView modifiedChannel.
+ modChannel onChangeSend:#value to:[
modifiedHolder notNil ifTrue:[
- self editTextView modifiedChannel value ifTrue:[
+ modChannel value ifTrue:[
modifiedHolder value:true
]
]
@@ -557,7 +560,7 @@
]
]
-
+ "Modified: / 16.7.1998 / 18:12:09 / cg"
!
specClass