--- a/ValModel.st	Thu Feb 20 18:17:46 1997 +0100
+++ b/ValModel.st	Fri Feb 21 16:35:07 1997 +0100
@@ -11,13 +11,13 @@
 "
 
 Model subclass:#ValueModel
-	instanceVariableNames:'accepted'
+	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
 	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
@@ -63,14 +63,6 @@
 
 !ValueModel methodsFor:'accessing'!
 
-accept
-    accepted := true
-!
-
-accepted
-    ^ accepted
-!
-
 setValue:newValue 
     "physically set my value, without change notifications"
 
@@ -84,29 +76,23 @@
 !
 
 value:anObject
-    "set my value, if it changed, send change notifications to my dependents."
+    "set my value & send change notifications to my dependents."
 
-    |oldValue|
-
-    oldValue := self value.
     self setValue:anObject.
-"/    anObject ~= oldValue ifTrue:[
-    anObject ~~ oldValue ifTrue:[
-        "/ self notifyChange:#value
-        self changed:#value
-    ]
+    self changed:#value
 
-    "Modified: 26.7.1996 / 17:15:05 / cg"
+    "Modified: 21.2.1997 / 16:29:19 / cg"
 ! !
 
 !ValueModel methodsFor:'initialization'!
 
 initialize
-    accepted := false
+
+    "Modified: 21.2.1997 / 16:29:38 / cg"
 ! !
 
-!ValueModel  class methodsFor:'documentation'!
+!ValueModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/ValModel.st,v 1.18 1996-07-26 16:09:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/ValModel.st,v 1.19 1997-02-21 15:35:07 cg Exp $'
 ! !