Metaclass.st
changeset 17592 469b9ab4d3de
parent 17277 41175deb61ee
child 17678 ce74cee00020
--- 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 $'
 ! !