UIHelpTool.st
changeset 891 bafed0c2436d
parent 876 32b1012426e3
child 896 0e732b716759
equal deleted inserted replaced
890:dac91d5af289 891:bafed0c2436d
   537 !
   537 !
   538 
   538 
   539 modifiedHolder:aValueHolder
   539 modifiedHolder:aValueHolder
   540     "sets the value holder to true in case of modifying attributes"
   540     "sets the value holder to true in case of modifying attributes"
   541 
   541 
       
   542     |eTxtView modChannel|
       
   543 
   542     modifiedHolder notNil ifTrue:[
   544     modifiedHolder notNil ifTrue:[
   543         modifiedHolder removeDependent:self. 
   545         modifiedHolder removeDependent:self. 
   544     ].
   546     ].
   545 
   547 
   546     (modifiedHolder := aValueHolder) notNil ifTrue:[
   548     (modifiedHolder := aValueHolder) notNil ifTrue:[
   547         modifiedHolder addDependent:self.
   549         modifiedHolder addDependent:self.
   548 
   550 
   549         self editTextView notNil ifTrue: [
   551         (eTxtView := self editTextView) notNil ifTrue: [
   550             self editTextView modifiedChannel onChangeSend:#value to:[
   552             modChannel := eTxtView modifiedChannel.
       
   553             modChannel onChangeSend:#value to:[
   551                 modifiedHolder notNil ifTrue:[
   554                 modifiedHolder notNil ifTrue:[
   552                     self editTextView modifiedChannel value ifTrue:[
   555                     modChannel value ifTrue:[
   553                         modifiedHolder value:true
   556                         modifiedHolder value:true
   554                     ]
   557                     ]
   555                 ]
   558                 ]
   556             ]
   559             ]
   557         ]
   560         ]
   558     ]
   561     ]
   559 
   562 
   560 
   563     "Modified: / 16.7.1998 / 18:12:09 / cg"
   561 !
   564 !
   562 
   565 
   563 specClass
   566 specClass
   564     "returns the class on which the help tool works"
   567     "returns the class on which the help tool works"
   565 
   568