common/SCMAbstractPackageWorkingCopy.st
changeset 917 eeabc31b5c93
parent 914 04391080b32d
child 918 c2ca744fe6c0
--- a/common/SCMAbstractPackageWorkingCopy.st	Mon Oct 26 22:18:01 2020 +0000
+++ b/common/SCMAbstractPackageWorkingCopy.st	Tue Oct 27 00:00:40 2020 +0000
@@ -417,6 +417,12 @@
 
     |stream|
 
+    cls theNonMetaclass methodDictionary do:
+        [:each|each makeLocalStringSource].
+
+    cls theMetaclass methodDictionary do:
+        [:each|each makeLocalStringSource].  
+
     stream := self containerWriteStreamForClass:cls.
     [
         self fileOutClass:cls on:stream
@@ -428,16 +434,10 @@
     "Created: / 30-12-2009 / 19:04:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 03-07-2013 / 19:50:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified (format): / 30-07-2014 / 20:49:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 26-10-2020 / 23:51:41 / Jan Vrany <jan.vrany@labware.com>"
 !
 
 fileOutClass:cls on:clsStream
-
-    cls methodDictionary do:
-        [:each|each makeLocalStringSource].
-
-    cls class methodDictionary do:
-        [:each|each makeLocalStringSource].
-
     self manager
                 fileOutSourceCodeOf:cls
                                  on:clsStream
@@ -459,7 +459,7 @@
     "Modified: / 11-06-2009 / 16:18:19 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 07-07-2011 / 20:21:59 / jv"
     "Modified: / 14-11-2012 / 01:01:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 29-06-2020 / 23:45:52 / Jan Vrany <jan.vrany@labware.com>"
+    "Modified: / 26-10-2020 / 23:51:10 / Jan Vrany <jan.vrany@labware.com>"
 !
 
 fileOutExtensions: extensionMethods