BuffValHldr.st
changeset 1009 b31628976be6
parent 773 b6337f784d05
equal deleted inserted replaced
1008:e0a54f96e34f 1009:b31628976be6
   171 ! !
   171 ! !
   172 
   172 
   173 !BufferedValueHolder methodsFor:'change & update'!
   173 !BufferedValueHolder methodsFor:'change & update'!
   174 
   174 
   175 update:something with:aParameter from:changedObject
   175 update:something with:aParameter from:changedObject
       
   176     |triggerVal|
       
   177 
   176     changedObject == triggerChannel ifTrue:[
   178     changedObject == triggerChannel ifTrue:[
   177         triggerChannel value == true ifTrue:[
   179         triggerVal := triggerChannel value.
       
   180 
       
   181         triggerVal == true ifTrue:[
   178             "
   182             "
   179              now, store the buffered value into the subject
   183              now, store the buffered value into the subject
   180             "
   184             "
   181             subject value:bufferedValue.
   185             subject value:bufferedValue.
   182             ^ self
   186             ^ self
   183         ].
   187         ].
   184         triggerChannel value == false ifTrue:[
   188         triggerVal == false ifTrue:[
   185             "
   189             "
   186              cancel: flush my buffered value
   190              cancel: flush my buffered value
   187             "
   191             "
   188             bufferedValue := NotYetAssigned.
   192             bufferedValue := NotYetAssigned.
       
   193             self changed:#value.
   189         ].
   194         ].
   190         self changed:#value.
   195 "/        self changed:#value.
   191         "/ self notifyChange:#value. 
       
   192         ^ self
   196         ^ self
   193     ].
   197     ].
   194     changedObject == subject ifTrue:[
   198     changedObject == subject ifTrue:[
   195         bufferedValue := NotYetAssigned.
   199         bufferedValue := NotYetAssigned.
   196         self changed:#value.
   200         self changed:#value.
   197         "/ self notifyChange:#value.
       
   198         ^ self
   201         ^ self
   199     ].
   202     ].
   200 
   203 
   201     "Modified: / 30.10.1997 / 05:01:30 / cg"
   204     "Modified: / 28.7.1998 / 11:54:39 / cg"
   202 ! !
   205 ! !
   203 
   206 
   204 !BufferedValueHolder methodsFor:'initialization'!
   207 !BufferedValueHolder methodsFor:'initialization'!
   205 
   208 
   206 initialize
   209 initialize
   220 ! !
   223 ! !
   221 
   224 
   222 !BufferedValueHolder class methodsFor:'documentation'!
   225 !BufferedValueHolder class methodsFor:'documentation'!
   223 
   226 
   224 version
   227 version
   225     ^ '$Header: /cvs/stx/stx/libview2/Attic/BuffValHldr.st,v 1.13 1998-01-27 11:12:49 cg Exp $'
   228     ^ '$Header: /cvs/stx/stx/libview2/Attic/BuffValHldr.st,v 1.14 1998-07-28 09:54:55 cg Exp $'
   226 ! !
   229 ! !