--- a/ValModel.st	Thu Apr 01 15:34:43 1999 +0200
+++ b/ValModel.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/Attic/ValModel.st,v 1.25 1999-02-26 13:49:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/ValModel.st,v 1.26 1999-04-12 11:16:06 cg Exp $'
 ! !

--- 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 $'
 ! !