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