--- a/ValueModel.st	Tue May 09 03:53:35 1995 +0200
+++ b/ValueModel.st	Wed May 10 04:26:18 1995 +0200
@@ -4,7 +4,7 @@
 	 instanceVariableNames:'accepted interrest'
 	 classVariableNames:''
 	 poolDictionaries:''
-	 category:'Interface-Support'
+	 category:'Interface-Support-Models'
 !
 
 !ValueModel class methodsFor:'documentation'!
@@ -12,7 +12,7 @@
 copyright
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -25,7 +25,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.5 1995-05-09 01:53:35 claus Exp $
+$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.6 1995-05-10 02:26:18 claus Exp $
 "
 !
 
@@ -56,9 +56,9 @@
 
 notifyChange:aSymbol
     interrest notNil ifTrue:[
-        interrest keysAndValuesDo:[:someone :selector |
-            someone perform:selector
-        ].
+	interrest keysAndValuesDo:[:someone :selector |
+	    someone perform:selector
+	].
     ].
     self changed:aSymbol
 ! !
@@ -71,7 +71,7 @@
     oldValue := self value.
     self setValue:anObject.
     anObject ~= oldValue ifTrue:[
-        self notifyChange:#value
+	self notifyChange:#value
     ]
 !