--- a/ValueModel.st	Thu Jul 25 19:49:30 1996 +0200
+++ b/ValueModel.st	Fri Jul 26 18:09:31 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Interface-Support-Models'
 !
 
-!ValueModel class methodsFor:'documentation'!
+!ValueModel  class methodsFor:'documentation'!
 
 copyright
 "
@@ -55,7 +55,7 @@
 "
 ! !
 
-!ValueModel class methodsFor:'instance creation'!
+!ValueModel  class methodsFor:'instance creation'!
 
 new
     ^ (super new) initialize
@@ -90,10 +90,13 @@
 
     oldValue := self value.
     self setValue:anObject.
-    anObject ~= oldValue ifTrue:[
-	"/ self notifyChange:#value
-	self changed:#value
+"/    anObject ~= oldValue ifTrue:[
+    anObject ~~ oldValue ifTrue:[
+        "/ self notifyChange:#value
+        self changed:#value
     ]
+
+    "Modified: 26.7.1996 / 17:15:05 / cg"
 ! !
 
 !ValueModel methodsFor:'initialization'!
@@ -102,8 +105,8 @@
     accepted := false
 ! !
 
-!ValueModel class methodsFor:'documentation'!
+!ValueModel  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.17 1996-04-27 17:59:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.18 1996-07-26 16:09:31 cg Exp $'
 ! !