Mercurial Mercurial > hg > stx-libbasic3 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changed fileutOut:on:.... to use source code manager directly, passing
authorJan Vrany <jan.vrany@fit.cvut.cz>
Sat, 04 Oct 2014 00:30:49 +0200
changeset 3628 a35c08debde5
parent 3627 de79ab1fc184
child 3629 23e8091856fa
Changed fileutOut:on:.... to use source code manager directly, passing generatingSourceForOriginal: false. This is needed to file out correct source w.r.t shadowed methods.
AbstractSourceCodeManager.st file | annotate | diff | comparison | revisions 
--- a/AbstractSourceCodeManager.st	Fri Oct 03 16:01:50 2014 +0200
+++ b/AbstractSourceCodeManager.st	Sat Oct 04 00:30:49 2014 +0200
@@ -2686,16 +2686,29 @@
     ].
 
     self withSourceRewriteHandlerDo:[
-        aClass fileOutOn:aStream 
-               withTimeStamp:withTimeStamp 
-               withInitialize:withInitialize 
-               withDefinition:withDefinition
-               methodFilter:filter.
+        | writer |
+
+        writer := aClass programmingLanguage sourceFileWriterClass new.
+        writer generatingSourceForOriginal:false.
+        writer 
+            fileOut:aClass 
+            on:aStream 
+            withTimeStamp:withTimeStamp 
+            withInitialize:withInitialize 
+            withDefinition:withDefinition 
+            methodFilter:methodFilter 
+            encoder:nil
+
+"/        aClass fileOutOn:aStream 
+"/               withTimeStamp:withTimeStamp 
+"/               withInitialize:withInitialize 
+"/               withDefinition:withDefinition
+"/               methodFilter:filter.
     ].
 
     self checkTabSpaceConventionIn: aStream.
 
-    "Modified: / 29-11-2013 / 12:01:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-10-2014 / 23:15:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 getExistingContainersInModule:aModule directory:aPackage
@@ -3960,15 +3973,15 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.328 2014-09-16 14:54:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.329 2014-10-03 22:30:49 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.328 2014-09-16 14:54:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.329 2014-10-03 22:30:49 vrany Exp $'
 !
 
 version_SVN
-    ^ '$Id: AbstractSourceCodeManager.st,v 1.328 2014-09-16 14:54:55 cg Exp $'
+    ^ '$Id: AbstractSourceCodeManager.st,v 1.329 2014-10-03 22:30:49 vrany Exp $'
 ! !
hg/stx-libbasic3