--- a/ValueModel.st	Tue Mar 14 18:16:44 2000 +0100
+++ b/ValueModel.st	Tue Mar 14 18:20:26 2000 +0100
@@ -69,6 +69,16 @@
     ^ self subclassResponsibility
 !
 
+triggerValue:newValue
+    "set my value & send change notifications to my dependents.
+     Send the change message even if the value didn't change."
+
+    self setValue:newValue.
+    self changed:#value
+
+    "Modified: 27.3.1997 / 15:14:04 / cg"
+!
+
 value 
     "return my value"
 
@@ -163,5 +173,5 @@
 !ValueModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.27 1999-06-18 22:50:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.28 2000-03-14 17:20:26 stefan Exp $'
 ! !