--- a/Class.st	Wed Jul 07 16:35:02 1999 +0200
+++ b/Class.st	Wed Jul 07 16:35:40 1999 +0200
@@ -41,80 +41,52 @@
 
     [Instance variables:]
 
-	name            <Symbol>        the classes name
-
-	category        <Symbol>        the classes category
-
-	classvars       <String>        the names of the class variables
-
-	comment         <String>        the classes comment; either a string,
-					a number specifying the offset in classFilename, or nil
-
-	subclasses      <Collection>    cached collection of subclasses
-					(currently unused - but will be soon)
-
-	classFilename   <String>        the file (or nil) where the classes
-					sources are found 
-
-	package         <Symbol>        the package, in which the class was defined
-					(inserted by compilers)
-
-	revision        <String>        revision string - inserted by stc
-
-	primitiveSpec   <Array | nil>   describes primitiveIncludes, primitiveFunctions etc.
-
-	environment     <Symbol | nil>  cached environment (i.e. Smalltalk or a namespace)
-					of class
-
-	signature       <SmallInteger>  the classes signature (used to detect obsolete
-					or changed classes with binaryStorage)
-					This is filled in lazy - i.e. upon the first signature query.
-
-	hook            <any>           reserved: a place to add additional attributes,
-					without a need to recompile all classes.
-					Currently unused.
-
-    [Class variables:]
-
-	OldMethods                      if nonNil, this must be an IdentityDictionary,
-					which is filled with method->previousversionMethod
-					associations. Can be used for undo-last-method-change
-					Notice: this may fillup your memory over time.
+        name            <Symbol>        the classes name
+
+        category        <Symbol>        the classes category
+
+        classvars       <String>        the names of the class variables
+
+        comment         <String>        the classes comment; either a string,
+                                        a number specifying the offset in classFilename, or nil
+
+        subclasses      <Collection>    cached collection of subclasses
+                                        (currently unused - but will be soon)
+
+        classFilename   <String>        the file (or nil) where the classes
+                                        sources are found 
+
+        package         <Symbol>        the package, in which the class was defined
+                                        (inserted by compilers)
+
+        revision        <String>        revision string - inserted by stc
+
+        primitiveSpec   <Array | nil>   describes primitiveIncludes, primitiveFunctions etc.
+
+        environment     <Symbol | nil>  cached environment (i.e. Smalltalk or a namespace)
+                                        of class
+
+        signature       <SmallInteger>  the classes signature (used to detect obsolete
+                                        or changed classes with binaryStorage)
+                                        This is filled in lazy - i.e. upon the first signature query.
+
+        hook            <any>           reserved: a place to add additional attributes,
+                                        without a need to recompile all classes.
+                                        Currently unused.
 
 
     WARNING: layout known by compiler and runtime system
 
     [author:]
-	Claus Gittinger
+        Claus Gittinger
 
     [see also:]
-	Behavior ClassDescription Metaclass
+        Behavior ClassDescription Metaclass
 "
 ! !
 
 !Class class methodsFor:'accessing - flags'!
 
-keepMethodHistory:aBoolean
-    "turn on/off oldMethod remembering. If on, a methods previous version
-     is kept locally, for later undo (or compare)."
-
-    aBoolean ifTrue:[
-	OldMethods isNil ifTrue:[
-	    OldMethods := IdentityDictionary new.
-	]
-    ] ifFalse:[
-	OldMethods := nil
-    ].
-
-    "
-     Class keepMethodHistory:true
-     Class keepMethodHistory:false
-    "
-
-    "Modified: 7.11.1996 / 18:36:00 / cg"
-    "Created: 7.11.1996 / 19:05:57 / cg"
-!
-
 tryLocalSourceFirst
     ^ TryLocalSourceFirst
 
@@ -147,33 +119,6 @@
     ^ UpdatingChanges
 ! !
 
-!Class class methodsFor:'accessing - history'!
-
-flushMethodHistory
-    "flush any method->previousVersion associations,
-     all history is lost."
-
-    OldMethods notNil ifTrue:[
-	OldMethods := IdentityDictionary new
-    ].
-
-    "Created: 7.11.1996 / 19:07:25 / cg"
-!
-
-methodHistory
-    "return a dictionary containing method->previousVersion associations,
-     nil if method remembering has been turned off"
-
-    ^ OldMethods 
-
-    "
-     Class oldMethods
-    "
-
-    "Modified: 7.11.1996 / 18:36:00 / cg"
-    "Created: 7.11.1996 / 19:06:28 / cg"
-! !
-
 !Class class methodsFor:'helpers'!
 
 revisionInfoFromString:aString
@@ -3961,5 +3906,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.337 1999-06-10 12:45:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.338 1999-07-07 14:35:40 cg Exp $'
 ! !