--- a/ValModel.st	Thu Dec 14 21:11:28 1995 +0100
+++ b/ValModel.st	Fri Dec 15 14:02:23 1995 +0100
@@ -11,7 +11,7 @@
 "
 
 Model subclass:#ValueModel
-	 instanceVariableNames:'accepted interrest'
+	 instanceVariableNames:'accepted interest'
 	 classVariableNames:''
 	 poolDictionaries:''
 	 category:'Interface-Support-Models'
@@ -37,7 +37,7 @@
 "
     abstract superclass for ValueHolders and Adaptors.
     It does not itself know how and where the value is stored,
-    but knows about interrested objects (which get informed, whenever
+    but knows about interested objects (which get informed, whenever
     the value changes) and keeps track if the value was ever accepted.
 
     Notice: this class was implemented using protocol information
@@ -94,10 +94,10 @@
 !ValueModel methodsFor:'change notification'!
 
 changed:aSymbol
-    "notify my dependents and those that are interrested"
+    "notify my dependents and those that are interested"
 
-    interrest notNil ifTrue:[
-	interrest keysAndValuesDo:[:someone :selector |
+    interest notNil ifTrue:[
+	interest keysAndValuesDo:[:someone :selector |
 	    someone perform:selector
 	].
     ].
@@ -110,32 +110,32 @@
     accepted := false
 ! !
 
-!ValueModel methodsFor:'interrest'!
+!ValueModel methodsFor:'interest'!
 
 onChangeSend:selector to:someone
-    "add an interrest, arranging that
+    "add an interest, arranging that
      a message with selector will be sent to someone 
      when my value changes."
 
-    interrest isNil ifTrue:[
-	interrest := IdentityDictionary new
+    interest isNil ifTrue:[
+	interest := IdentityDictionary new
     ].
-    interrest at:someone put:selector
+    interest at:someone put:selector
 !
 
-retractInterrestFor:someone
-    "release interrest i.e. do no longer send changeMsg to changeReceiver
+retractInterestsFor:someone
+    "release interest i.e. do no longer send changeMsg to changeReceiver
      iff someone is the changeReceiver.
      This can be used to (temporarily) turn off information sends,
      to break endless cycles (if two values change each other)"
 
-    interrest notNil ifTrue:[
-	interrest removeKey:someone ifAbsent:nil
+    interest notNil ifTrue:[
+	interest removeKey:someone ifAbsent:nil
     ]
 ! !
 
 !ValueModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/ValModel.st,v 1.13 1995-11-23 17:48:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/ValModel.st,v 1.14 1995-12-15 13:02:23 cg Exp $'
 ! !

--- a/ValueModel.st	Thu Dec 14 21:11:28 1995 +0100
+++ b/ValueModel.st	Fri Dec 15 14:02:23 1995 +0100
@@ -11,7 +11,7 @@
 "
 
 Model subclass:#ValueModel
-	 instanceVariableNames:'accepted interrest'
+	 instanceVariableNames:'accepted interest'
 	 classVariableNames:''
 	 poolDictionaries:''
 	 category:'Interface-Support-Models'
@@ -37,7 +37,7 @@
 "
     abstract superclass for ValueHolders and Adaptors.
     It does not itself know how and where the value is stored,
-    but knows about interrested objects (which get informed, whenever
+    but knows about interested objects (which get informed, whenever
     the value changes) and keeps track if the value was ever accepted.
 
     Notice: this class was implemented using protocol information
@@ -94,10 +94,10 @@
 !ValueModel methodsFor:'change notification'!
 
 changed:aSymbol
-    "notify my dependents and those that are interrested"
+    "notify my dependents and those that are interested"
 
-    interrest notNil ifTrue:[
-	interrest keysAndValuesDo:[:someone :selector |
+    interest notNil ifTrue:[
+	interest keysAndValuesDo:[:someone :selector |
 	    someone perform:selector
 	].
     ].
@@ -110,32 +110,32 @@
     accepted := false
 ! !
 
-!ValueModel methodsFor:'interrest'!
+!ValueModel methodsFor:'interest'!
 
 onChangeSend:selector to:someone
-    "add an interrest, arranging that
+    "add an interest, arranging that
      a message with selector will be sent to someone 
      when my value changes."
 
-    interrest isNil ifTrue:[
-	interrest := IdentityDictionary new
+    interest isNil ifTrue:[
+	interest := IdentityDictionary new
     ].
-    interrest at:someone put:selector
+    interest at:someone put:selector
 !
 
-retractInterrestFor:someone
-    "release interrest i.e. do no longer send changeMsg to changeReceiver
+retractInterestsFor:someone
+    "release interest i.e. do no longer send changeMsg to changeReceiver
      iff someone is the changeReceiver.
      This can be used to (temporarily) turn off information sends,
      to break endless cycles (if two values change each other)"
 
-    interrest notNil ifTrue:[
-	interrest removeKey:someone ifAbsent:nil
+    interest notNil ifTrue:[
+	interest removeKey:someone ifAbsent:nil
     ]
 ! !
 
 !ValueModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.13 1995-11-23 17:48:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.14 1995-12-15 13:02:23 cg Exp $'
 ! !