--- 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