equal
deleted
inserted
replaced
546 (modifiedHolder := aValueHolder) notNil ifTrue:[ |
546 (modifiedHolder := aValueHolder) notNil ifTrue:[ |
547 modifiedHolder addDependent:self. |
547 modifiedHolder addDependent:self. |
548 |
548 |
549 (eTxtView := self editTextView) notNil ifTrue: [ |
549 (eTxtView := self editTextView) notNil ifTrue: [ |
550 modChannel := eTxtView modifiedChannel. |
550 modChannel := eTxtView modifiedChannel. |
551 modChannel onChangeSend:#value to:[ |
551 modChannel onChangeEvaluate:[ |
552 modifiedHolder notNil ifTrue:[ |
552 modifiedHolder notNil ifTrue:[ |
553 modChannel value ifTrue:[ |
553 modChannel value ifTrue:[ |
554 modifiedHolder value:true |
554 modifiedHolder value:true |
555 ] |
555 ] |
556 ] |
556 ] |