--- a/ValueModel.st Thu Apr 01 15:34:43 1999 +0200
+++ b/ValueModel.st Mon Apr 12 13:16:06 1999 +0200
@@ -79,6 +79,11 @@
"set my value & send change notifications to my dependents
if it changed."
+"/ "/ mhmh - that seems to be what VW does ...
+"/ "/ (i.e. always send a change message)
+"/ self setValue:newValue.
+"/ self changed:#value
+
|oldValue|
oldValue := self value.
@@ -118,6 +123,12 @@
!ValueModel methodsFor:'converting'!
+asValue
+ "return the receiver - it is already a valueHolder"
+
+ ^ self
+!
+
compute:aBlock
"return a BlockValue on the receiver, which computes aBlock"
@@ -152,5 +163,5 @@
!ValueModel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.25 1999-02-26 13:49:08 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.26 1999-04-12 11:16:06 cg Exp $'
! !