--- a/ValModel.st	Fri May 12 19:59:39 1995 +0200
+++ b/ValModel.st	Fri May 12 20:09:08 1995 +0200
@@ -25,7 +25,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/Attic/ValModel.st,v 1.6 1995-05-10 02:26:18 claus Exp $
+$Header: /cvs/stx/stx/libview2/Attic/ValModel.st,v 1.7 1995-05-12 18:09:08 claus Exp $
 "
 !
 
@@ -55,6 +55,8 @@
 !ValueModel methodsFor:'change notification'!
 
 notifyChange:aSymbol
+    "notify my dependents and those that are interrested"
+
     interrest notNil ifTrue:[
 	interrest keysAndValuesDo:[:someone :selector |
 	    someone perform:selector
@@ -66,6 +68,8 @@
 !ValueModel methodsFor:'accessing'!
 
 value:anObject
+    "set my value, if it changed, send change notifications to my dependents."
+
     |oldValue|
 
     oldValue := self value.
@@ -84,11 +88,15 @@
 !
 
 value 
-    self subclassResponsibility
+    "return my value"
+
+    ^ self subclassResponsibility
 !
 
 setValue:newValue 
-    self subclassResponsibility
+    "physically set my value, without change notifications"
+
+    ^ self subclassResponsibility
 ! !
 
 !ValueModel methodsFor:'initialization'!