--- a/ValModel.st	Wed Mar 05 17:09:43 1997 +0100
+++ b/ValModel.st	Wed Mar 05 17:10:31 1997 +0100
@@ -84,6 +84,14 @@
     "Modified: 21.2.1997 / 16:29:19 / cg"
 ! !
 
+!ValueModel methodsFor:'converting'!
+
+compute:aBlock
+    "return a BlockValue on the receiver, which computes aBlock"
+
+    ^ BlockValue with:aBlock arguments:(Array with:self)
+! !
+
 !ValueModel methodsFor:'initialization'!
 
 initialize
@@ -94,5 +102,5 @@
 !ValueModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/ValModel.st,v 1.19 1997-02-21 15:35:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/ValModel.st,v 1.20 1997-03-05 16:10:31 ca Exp $'
 ! !

--- a/ValueModel.st	Wed Mar 05 17:09:43 1997 +0100
+++ b/ValueModel.st	Wed Mar 05 17:10:31 1997 +0100
@@ -84,6 +84,14 @@
     "Modified: 21.2.1997 / 16:29:19 / cg"
 ! !
 
+!ValueModel methodsFor:'converting'!
+
+compute:aBlock
+    "return a BlockValue on the receiver, which computes aBlock"
+
+    ^ BlockValue with:aBlock arguments:(Array with:self)
+! !
+
 !ValueModel methodsFor:'initialization'!
 
 initialize
@@ -94,5 +102,5 @@
 !ValueModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.19 1997-02-21 15:35:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.20 1997-03-05 16:10:31 ca Exp $'
 ! !