# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 885899569 -3600
# Node ID b6337f784d0551d07a225d368a7a43b3ccdfc4de
# Parent  6164c303afdea2b70f4d9e23257b9ca529d89169
added #isBuffering (read not from trevis griggs)

diff -r 6164c303afde -r b6337f784d05 BuffValHldr.st
--- a/BuffValHldr.st	Mon Jan 26 14:32:50 1998 +0100
+++ b/BuffValHldr.st	Tue Jan 27 12:12:49 1998 +0100
@@ -208,8 +208,19 @@
     bufferedValue := NotYetAssigned
 ! !
 
+!BufferedValueHolder methodsFor:'queries'!
+
+isBuffering
+    "return true, if the receiver is currently buffering something
+     (i.e. its value has been assigned)"
+
+    ^ bufferedValue ~~ NotYetAssigned
+
+    "Modified: / 27.1.1998 / 12:09:46 / cg"
+! !
+
 !BufferedValueHolder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/BuffValHldr.st,v 1.12 1997-11-02 17:09:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/BuffValHldr.st,v 1.13 1998-01-27 11:12:49 cg Exp $'
 ! !
diff -r 6164c303afde -r b6337f784d05 BufferedValueHolder.st
--- a/BufferedValueHolder.st	Mon Jan 26 14:32:50 1998 +0100
+++ b/BufferedValueHolder.st	Tue Jan 27 12:12:49 1998 +0100
@@ -208,8 +208,19 @@
     bufferedValue := NotYetAssigned
 ! !
 
+!BufferedValueHolder methodsFor:'queries'!
+
+isBuffering
+    "return true, if the receiver is currently buffering something
+     (i.e. its value has been assigned)"
+
+    ^ bufferedValue ~~ NotYetAssigned
+
+    "Modified: / 27.1.1998 / 12:09:46 / cg"
+! !
+
 !BufferedValueHolder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/BufferedValueHolder.st,v 1.12 1997-11-02 17:09:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/BufferedValueHolder.st,v 1.13 1998-01-27 11:12:49 cg Exp $'
 ! !
diff -r 6164c303afde -r b6337f784d05 ValModel.st
--- a/ValModel.st	Mon Jan 26 14:32:50 1998 +0100
+++ b/ValModel.st	Tue Jan 27 12:12:49 1998 +0100
@@ -105,8 +105,19 @@
     "Modified: 21.2.1997 / 16:29:38 / cg"
 ! !
 
+!ValueModel methodsFor:'queries'!
+
+isBuffering
+    "return true, if the receiver is buffering something.
+     For compatibility with BufferedValueHolder, false is returned here"
+
+    ^ false
+
+    "Created: / 27.1.1998 / 12:12:08 / cg"
+! !
+
 !ValueModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/ValModel.st,v 1.21 1997-03-27 14:14:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/ValModel.st,v 1.22 1998-01-27 11:12:41 cg Exp $'
 ! !
diff -r 6164c303afde -r b6337f784d05 ValueModel.st
--- a/ValueModel.st	Mon Jan 26 14:32:50 1998 +0100
+++ b/ValueModel.st	Tue Jan 27 12:12:49 1998 +0100
@@ -105,8 +105,19 @@
     "Modified: 21.2.1997 / 16:29:38 / cg"
 ! !
 
+!ValueModel methodsFor:'queries'!
+
+isBuffering
+    "return true, if the receiver is buffering something.
+     For compatibility with BufferedValueHolder, false is returned here"
+
+    ^ false
+
+    "Created: / 27.1.1998 / 12:12:08 / cg"
+! !
+
 !ValueModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.21 1997-03-27 14:14:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.22 1998-01-27 11:12:41 cg Exp $'
 ! !