--- a/Metaclass.st Mon Sep 21 16:44:26 2009 +0200
+++ b/Metaclass.st Mon Sep 21 16:45:17 2009 +0200
@@ -194,6 +194,14 @@
"Created: / 27.4.1998 / 15:33:34 / cg"
!
+language
+
+ ^SmalltalkLanguage instance
+
+ "Created: / 15-08-2009 / 09:06:25 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 16-08-2009 / 10:37:08 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
parserClass
"return the parser to use for parsing this class -
this can be redefined in special classes, to parse classes with
@@ -646,7 +654,7 @@
The order by which the fileOut is done is used to put the version string at the end.
Thus, if the version string is expanded (by CVS), the characterPositions of methods should not move"
- SmalltalkChunkFileSourceWriter new
+ self language sourceFileWriterClass new
fileOut:myClass on:outStreamArg withTimeStamp:stampIt
withInitialize:initIt withDefinition:withDefinition
methodFilter:methodFilter encoder:encoderOrNil
@@ -846,7 +854,7 @@
!Metaclass class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.200 2007-10-08 11:30:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.201 2009-09-21 14:45:17 fm Exp $'
! !
Metaclass initialize!