# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 845135416 -7200
# Node ID 3bea87e918cd538691bd3438dcba94fd69991a24
# Parent  40f0539852ead522b3eeb0df4306837da3b30f22
nope - privateClasses was no good idea;
must base the implementation upon ClassVars - otherwise bytecode access
becomes too complicated.

diff -r 40f0539852ea -r 3bea87e918cd Class.st
--- a/Class.st	Sat Oct 12 15:37:25 1996 +0200
+++ b/Class.st	Sat Oct 12 17:50:16 1996 +0200
@@ -12,7 +12,7 @@
 
 ClassDescription subclass:#Class
 	instanceVariableNames:'classvars comment subclasses classFilename package revision
-		history privateClasses'
+		hook'
 	classVariableNames:'UpdatingChanges LockChangesFile FileOutErrorSignal
 		CatchMethodRedefinitions MethodRedefinitionSignal
 		UpdateChangeFileQuerySignal TryLocalSourceFirst
@@ -67,7 +67,9 @@
 
         revision        <String>        revision string - inserted by stc
 
-        history         <any>           a place for a history string (not currently used)
+        hook            <any>           reserved: a place to add additional attributes,
+				        without a need to recompile all classes.
+					Currently unused.
 
     [Class variables:]
 
@@ -581,22 +583,6 @@
     "
 !
 
-history 
-    "return the history  of the class"
-
-    ^ history 
-
-    "
-     Object history   
-    "
-!
-
-history:aString
-    "set the history of the class."
-
-    history  := aString
-!
-
 package
     "return the package of the class"
 
@@ -779,12 +765,6 @@
     category := cat asSymbol
 !
 
-setHistory:aString
-    "set the history of the class."
-
-    history  := aString
-!
-
 setPackage:aStringOrSymbol
     "set the package of the class."
 
@@ -4094,6 +4074,6 @@
 !Class  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.174 1996-10-12 13:27:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.175 1996-10-12 15:50:16 cg Exp $'
 ! !
 Class initialize!