--- a/BufferedValueHolder.st Tue Nov 28 19:19:53 2017 +0100
+++ b/BufferedValueHolder.st Tue Nov 28 19:20:00 2017 +0100
@@ -9,6 +9,9 @@
other person. No title to or ownership of the software is
hereby transferred.
"
+"{ Package: 'stx:libview2' }"
+
+"{ NameSpace: Smalltalk }"
ValueHolder subclass:#BufferedValueHolder
instanceVariableNames:'subject triggerChannel bufferedValue'
@@ -151,6 +154,17 @@
]
!
+value
+ "return my value"
+
+ bufferedValue == NotYetAssigned ifTrue:[
+ bufferedValue := subject value
+ ].
+ ^ bufferedValue
+! !
+
+!BufferedValueHolder methodsFor:'accessing-channels'!
+
triggerChannel:aTrigger
triggerChannel notNil ifTrue:[
triggerChannel removeDependent:self
@@ -159,15 +173,6 @@
triggerChannel notNil ifTrue:[
triggerChannel addDependent:self
]
-!
-
-value
- "return my value"
-
- bufferedValue == NotYetAssigned ifTrue:[
- bufferedValue := subject value
- ].
- ^ bufferedValue
! !
!BufferedValueHolder methodsFor:'change & update'!
@@ -225,5 +230,6 @@
!BufferedValueHolder class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/BufferedValueHolder.st,v 1.14 1998-07-28 09:54:55 cg Exp $'
+ ^ '$Header$'
! !
+