Metaclass.st
changeset 13475 76bd767cfcee
parent 13407 10be0164a8ff
child 14647 55ae1eae669b
--- a/Metaclass.st	Fri Jul 01 13:44:01 2011 +0200
+++ b/Metaclass.st	Fri Jul 01 13:44:26 2011 +0200
@@ -864,6 +864,18 @@
     "Modified: 2.4.1997 / 01:17:04 / stefan"
 !
 
+binaryRevisionString
+    ^ myClass binaryRevisionString
+
+    "
+     Object binaryRevisionString
+     Object class binaryRevisionString
+    "
+
+    "Modified: / 02-04-1997 / 01:17:04 / stefan"
+    "Created: / 01-07-2011 / 10:55:39 / cg"
+!
+
 sourceFileSuffix
     ^ self programmingLanguage sourceFileSuffix
 
@@ -889,12 +901,8 @@
 
 !Metaclass class methodsFor:'documentation'!
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.209 2011-06-28 11:44:44 cg Exp $'
-!
-
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.209 2011-06-28 11:44:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.210 2011-07-01 11:44:26 cg Exp $'
 ! !
 
 Metaclass initialize!