--- a/BufferedValueHolder.st	Thu Nov 23 11:40:23 1995 +0100
+++ b/BufferedValueHolder.st	Thu Nov 23 11:43:41 1995 +0100
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-ValueHolder subclass:#BufferedValueHolder 
+ValueHolder subclass:#BufferedValueHolder
 	 instanceVariableNames:'subject triggerChannel bufferedValue'
 	 classVariableNames:'NotYetAssigned'
 	 poolDictionaries:''
@@ -33,10 +33,6 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libview2/BufferedValueHolder.st,v 1.6 1995-11-11 16:04:19 cg Exp $'
-!
-
 documentation
 "
     a bufferedValueHolder keeps a temporary copy of the realHolders value,
@@ -110,6 +106,10 @@
 
 	Transcript show:firstName value; show:' '; showCr:lastName value
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libview2/BufferedValueHolder.st,v 1.7 1995-11-23 10:42:14 cg Exp $'
 ! !
 
 !BufferedValueHolder class methodsFor:'initialization'!
@@ -127,13 +127,43 @@
     ^ self new subject:someModel; triggerChannel:aTrigger
 ! !
 
-!BufferedValueHolder methodsFor:'initialization'!
+!BufferedValueHolder methodsFor:'accessing'!
+
+setValue:anObject
+    "set my value without notification."
+
+    bufferedValue := anObject.
+!
+
+subject:someModel
+    subject notNil ifTrue:[
+	subject removeDependent:self
+    ].
+    subject := someModel.
+    subject notNil ifTrue:[
+	subject addDependent:self
+    ]
+!
 
-initialize
-    super initialize.
-    bufferedValue := NotYetAssigned
+triggerChannel:aTrigger
+    triggerChannel notNil ifTrue:[
+	triggerChannel removeDependent:self
+    ].
+    triggerChannel := aTrigger.
+    triggerChannel notNil ifTrue:[
+	triggerChannel addDependent:self
+    ]
+!
+
+value
+    "return my value"
+
+    bufferedValue == NotYetAssigned ifTrue:[
+	bufferedValue := subject value
+    ].
+    ^ bufferedValue
 ! !
-    
+
 !BufferedValueHolder methodsFor:'change & update'!
 
 update:something with:aParameter from:changedObject
@@ -161,39 +191,10 @@
     ].
 ! !
 
-!BufferedValueHolder methodsFor:'accessing'!
-
-subject:someModel
-    subject notNil ifTrue:[
-	subject removeDependent:self
-    ].
-    subject := someModel.
-    subject notNil ifTrue:[
-	subject addDependent:self
-    ]
-!
+!BufferedValueHolder methodsFor:'initialization'!
 
-triggerChannel:aTrigger
-    triggerChannel notNil ifTrue:[
-	triggerChannel removeDependent:self
-    ].
-    triggerChannel := aTrigger.
-    triggerChannel notNil ifTrue:[
-	triggerChannel addDependent:self
-    ]
-!
+initialize
+    super initialize.
+    bufferedValue := NotYetAssigned
+! !
 
-setValue:anObject
-    "set my value without notification."
-
-    bufferedValue := anObject.
-!
-
-value
-    "return my value"
-
-    bufferedValue == NotYetAssigned ifTrue:[
-	bufferedValue := subject value
-    ].
-    ^ bufferedValue
-! !