--- a/Metaclass.st Tue Oct 15 21:36:00 1996 +0200
+++ b/Metaclass.st Tue Oct 15 21:37:17 1996 +0200
@@ -1534,6 +1534,14 @@
"Created: 12.10.1996 / 20:12:16 / cg"
!
+package
+ "return my package-id"
+
+ ^ myClass package
+
+ "Created: 15.10.1996 / 19:44:51 / cg"
+!
+
soleInstance
"return my sole class."
@@ -1543,5 +1551,5 @@
!Metaclass class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.71 1996-10-15 11:28:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.72 1996-10-15 19:36:55 cg Exp $'
! !