--- a/ValueModel.st	Sun Jul 23 04:25:16 1995 +0200
+++ b/ValueModel.st	Sun Jul 23 04:29:14 1995 +0200
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.8 1995-05-16 17:14:27 claus Exp $
+$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.9 1995-07-23 02:28:55 claus Exp $
 "
 !
 
@@ -64,7 +64,7 @@
     ^ (super new) initialize
 ! !
 
-!ValueModel methodsFor:'change notification'!
+!ValueModel ignoredMethodsFor:'change notification'!
 
 notifyChange:aSymbol
     "notify my dependents and those that are interrested"
@@ -77,6 +77,19 @@
     self changed:aSymbol
 ! !
 
+!ValueModel methodsFor:'change notification'!
+
+changed:aSymbol
+    "notify my dependents and those that are interrested"
+
+    interrest notNil ifTrue:[
+	interrest keysAndValuesDo:[:someone :selector |
+	    someone perform:selector
+	].
+    ].
+    super changed:aSymbol
+! !
+
 !ValueModel methodsFor:'accessing'!
 
 value:anObject
@@ -87,7 +100,8 @@
     oldValue := self value.
     self setValue:anObject.
     anObject ~= oldValue ifTrue:[
-	self notifyChange:#value
+	"/ self notifyChange:#value
+	self changed:#value
     ]
 !