--- a/OtherChange.st	Fri Jun 13 19:11:03 2003 +0200
+++ b/OtherChange.st	Wed Jun 18 17:34:02 2003 +0200
@@ -1,3 +1,5 @@
+"{ Package: 'stx:libbasic3' }"
+
 Change subclass:#OtherChange
 	instanceVariableNames:'type file position'
 	classVariableNames:''
@@ -11,12 +13,14 @@
 file
     "return the value of the instance variable 'file' (automatically generated)"
 
-    ^ file!
+    ^ file
+!
 
 file:something
     "set the value of the instance variable 'file' (automatically generated)"
 
-    file := something.!
+    file := something.
+!
 
 file:aFilename position:anInteger
     "set the value of the instance variable 'file' (automatically generated)"
@@ -28,25 +32,37 @@
 position
     "return the value of the instance variable 'position' (automatically generated)"
 
-    ^ position!
+    ^ position
+!
 
 position:something
     "set the value of the instance variable 'position' (automatically generated)"
 
-    position := something.!
+    position := something.
+!
 
 type
     "return the value of the instance variable 'type' (automatically generated)"
 
-    ^ type!
+    ^ type
+!
 
 type:something
     "set the value of the instance variable 'type' (automatically generated)"
 
-    type := something.! !
+    type := something.
+! !
+
+!OtherChange methodsFor:'printing & storing'!
+
+printOn:aStream
+    aStream nextPutAll:'OtherChange ('.
+    aStream nextPutAll:source.
+    aStream nextPutAll:')'.
+! !
 
 !OtherChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/OtherChange.st,v 1.1 2000-03-21 12:43:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/OtherChange.st,v 1.2 2003-06-18 15:34:02 cg Exp $'
 ! !