Metaclass.st
changeset 24375 17f697620440
parent 24176 d261694dd722
child 24833 94226f673308
--- a/Metaclass.st	Thu Jun 27 12:39:53 2019 +0200
+++ b/Metaclass.st	Thu Jun 27 12:42:47 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -123,6 +125,7 @@
     "Modified: 23.4.1996 / 15:59:44 / cg"
 ! !
 
+
 !Metaclass methodsFor:'Compatibility-ST80'!
 
 comment:aString
@@ -881,10 +884,6 @@
     "Created: 15.10.1996 / 19:44:51 / cg"
 !
 
-sharedPools
-    ^ myClass sharedPools
-!
-
 soleInstance
     "return my sole class."
 
@@ -966,10 +965,14 @@
 !
 
 sourceFileSuffix
-    ^ self programmingLanguage sourceFileSuffix
+    "Answers a default suffix for source files, i.e.
+     'st' for Smalltalk, 'js' for JavaScript or 'rb' for Ruby', etc."
+
+     ^ self programmingLanguage sourceFileSuffix
 
     "Modified: / 15-08-2009 / 22:46:44 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 28-06-2011 / 13:44:36 / cg"
+    "Modified (comment): / 27-06-2019 / 12:33:51 / Claus Gittinger"
 !
 
 sourceStream