Cface__SmalltalkXGenerator.st
changeset 36 4e586238a9f7
parent 34 834ca32d06b2
child 37 1ad7fb72801a
--- a/Cface__SmalltalkXGenerator.st	Thu Jul 02 09:00:12 2015 +0100
+++ b/Cface__SmalltalkXGenerator.st	Mon Jul 06 07:18:24 2015 +0100
@@ -172,13 +172,8 @@
             cEnumNode smalltalkNamespace;
         className: 
             cEnumNode smalltalkClassName;
-        classVariableNames:
-            (String streamContents:
-                [:s|
-                cEnumNode values 
-                    do: [:cEnumValueNode| s nextPutAll: cEnumValueNode smalltalkName]
-                    separatedBy: [ s space ]  
-                ]);
+        classVariableNames: 
+            (cEnumNode values collect: [ :e | e smalltalkName ]);
         category:
             cEnumNode smalltalkCategory;
         package:
@@ -222,7 +217,7 @@
 
     "Created: / 03-07-2008 / 20:10:34 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 22-02-2009 / 15:03:00 / Jan Vrany <vranyj1@fel.cvut.cz>"
-    "Modified: / 28-12-2014 / 21:09:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-06-2015 / 14:21:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 visitCFunctionNode:functionNode
@@ -331,6 +326,11 @@
     ^ '$Id$'
 !
 
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+!
+
 version_SVN
     ^ '$Id$'
 ! !