--- a/BufferedValueHolder.st Sun Nov 02 17:53:52 1997 +0100
+++ b/BufferedValueHolder.st Sun Nov 02 18:09:15 1997 +0100
@@ -47,6 +47,9 @@
If you encounter any incompatibilities, please forward a note
describing the incompatibility verbal (i.e. no code) to the ST/X team.
+ [see also:]
+ CodingExamples_GUI::BufferedValueHolderDemo
+
[author:]
Claus Gittinger
"
@@ -171,27 +174,31 @@
update:something with:aParameter from:changedObject
changedObject == triggerChannel ifTrue:[
- triggerChannel value == true ifTrue:[
- "
- now, store the buffered value into the subject
- "
- subject value:bufferedValue.
- ^ self
- ].
- triggerChannel value == false ifTrue:[
- "
- cancel: flush my buffered value
- "
- bufferedValue := NotYetAssigned.
- ].
- self notifyChange:#value.
- ^ self
+ triggerChannel value == true ifTrue:[
+ "
+ now, store the buffered value into the subject
+ "
+ subject value:bufferedValue.
+ ^ self
+ ].
+ triggerChannel value == false ifTrue:[
+ "
+ cancel: flush my buffered value
+ "
+ bufferedValue := NotYetAssigned.
+ ].
+ self changed:#value.
+ "/ self notifyChange:#value.
+ ^ self
].
changedObject == subject ifTrue:[
- bufferedValue := NotYetAssigned.
- self notifyChange:#value.
- ^ self
+ bufferedValue := NotYetAssigned.
+ self changed:#value.
+ "/ self notifyChange:#value.
+ ^ self
].
+
+ "Modified: / 30.10.1997 / 05:01:30 / cg"
! !
!BufferedValueHolder methodsFor:'initialization'!
@@ -204,5 +211,5 @@
!BufferedValueHolder class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/BufferedValueHolder.st,v 1.11 1996-05-18 15:37:03 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/BufferedValueHolder.st,v 1.12 1997-11-02 17:09:15 cg Exp $'
! !