--- a/ObjFHandle.st	Fri Sep 15 04:39:07 1995 +0200
+++ b/ObjFHandle.st	Fri Sep 15 13:38:21 1995 +0200
@@ -1,7 +1,7 @@
 'From Smalltalk/X, Version:2.10.7 on 14-sep-1995 at 9:26:01 pm'                 !
 
 Object subclass:#ObjectFileHandle
-	 instanceVariableNames:'sysHandle1 sysHandle2 pathName moduleID isMethodHandle weakMethodRef'
+	 instanceVariableNames:'sysHandle1 sysHandle2 pathName moduleID handleType weakMethodRef weakClassRefs'
 	 classVariableNames:''
 	 poolDictionaries:''
 	 category:'System-Compiler'
@@ -11,7 +11,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Attic/ObjFHandle.st,v 1.2 1995-09-14 23:30:46 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/ObjFHandle.st,v 1.3 1995-09-15 11:38:21 claus Exp $
 "
 !
 
@@ -45,8 +45,12 @@
 
 !ObjectFileHandle methodsFor:'queries'!
 
+isClassLibHandle
+    ^ handleType == #classLibraryObject 
+!
+
 isMethodHandle
-    ^ isMethodHandle == true
+    ^ handleType == #methodObject
 ! !
 
 !ObjectFileHandle methodsFor:'accessing'!
@@ -115,6 +119,23 @@
     "Created: 14.9.1995 / 21:13:12 / claus"
 !
 
+classes
+    "return the classes"
+
+    ^ weakClassRefs asArray 
+
+    "Created: 14.9.1995 / 21:13:13 / claus"
+!
+
+classes:aCollectionOfClasses 
+    "set the classes collection"
+
+    weakClassRefs := WeakArray withAll:aCollectionOfClasses.
+    handleType := #classLibraryObject 
+
+    "Created: 14.9.1995 / 21:13:13 / claus"
+!
+
 method
     "return method"
 
@@ -127,7 +148,7 @@
     "set method"
 
     weakMethodRef := WeakArray with:something.
-    isMethodHandle := true
+    handleType := #methodObject.
 
     "Created: 14.9.1995 / 21:13:13 / claus"
 ! !