--- a/Metaclass.st Mon Mar 09 11:06:36 2015 +0100
+++ b/Metaclass.st Mon Mar 09 11:06:43 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
@@ -111,7 +113,6 @@
"Modified: 23.4.1996 / 15:59:44 / cg"
! !
-
!Metaclass methodsFor:'Compatibility-ST80'!
comment:aString
@@ -853,7 +854,8 @@
theNonMetaclass
"return the nonMetaClass of the class-meta pair.
Here, return my class object, because I am the metaclass.
- Also implemented in my class, which returns itself."
+ Also implemented in my class, which returns itself.
+ Sigh: ST/X naming; Squeak calls this theNonMetaClass"
^ self soleInstance
@@ -928,7 +930,7 @@
!Metaclass class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.215 2014-12-31 09:15:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.216 2015-03-09 10:06:43 cg Exp $'
! !