--- a/MethodRemoveChange.st	Tue Sep 10 13:54:37 2002 +0200
+++ b/MethodRemoveChange.st	Tue Sep 10 13:55:01 2002 +0200
@@ -14,7 +14,7 @@
 "{ Package: 'stx:libbasic3' }"
 
 ClassChange subclass:#MethodRemoveChange
-	instanceVariableNames:'selector'
+	instanceVariableNames:'selector previousVersion'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-Changes'
@@ -35,6 +35,16 @@
  hereby transferred.
 "
 
+!
+
+documentation
+"
+    instances represent a method-has-been-removed change. 
+    They are typically held in a ChangeSet.
+
+    [author:]
+        Claus Gittinger
+"
 ! !
 
 !MethodRemoveChange class methodsFor:'instance creation'!
@@ -63,6 +73,14 @@
     "Created: / 16.2.1998 / 12:51:57 / cg"
 !
 
+previousVersion
+    ^ previousVersion
+!
+
+previousVersion:something
+    previousVersion := something.
+!
+
 selector:sel
     selector := sel
 !
@@ -82,8 +100,14 @@
     "Created: / 16.2.1998 / 12:50:42 / cg"
 ! !
 
+!MethodRemoveChange methodsFor:'queries'!
+
+isMethodRemoveChange
+    ^ true
+! !
+
 !MethodRemoveChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodRemoveChange.st,v 1.5 2002-06-19 12:10:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodRemoveChange.st,v 1.6 2002-09-10 11:55:01 cg Exp $'
 ! !