Cface__SmalltalkXGenerator.st
changeset 4 fc74bd43a3eb
parent 3 110a9cbf8594
child 5 c110eef5b9ef
--- a/Cface__SmalltalkXGenerator.st	Fri Jul 04 08:35:55 2008 +0000
+++ b/Cface__SmalltalkXGenerator.st	Fri Jul 04 12:05:15 2008 +0000
@@ -66,7 +66,7 @@
 
 visitCEnumNode: cEnumNode
 
-    cEnumNode foreign ifTrue:[^self].
+    cEnumNode isForeign ifTrue:[^self].
 
     (changeset add: ClassDefinitionChange new)
         superClassName: 
@@ -78,7 +78,7 @@
                 [:s|
                 cEnumNode values do:
                     [:cEnumValueNode|
-                    s nextPutAll: cEnumValueNode cName; space]]);
+                    s nextPutAll: cEnumValueNode smalltalkName; space]]);
         category:
             cEnumNode smalltalkCategory;
         package:
@@ -99,7 +99,7 @@
                     [:cEnumValueNode|
                     s 
                         tab; 
-                        nextPutAll: cEnumValueNode cName;
+                        nextPutAll: cEnumValueNode smalltalkName;
                         nextPutAll: ' := ';
                         nextPutAll: cEnumValueNode intValue;
                         nextPut:$.; cr]]).
@@ -116,11 +116,11 @@
             source:
                 (String streamContents:
                     [:s|
-                    s nextPutAll: cEnumValueNode cName; cr; cr.
-                    s tab; nextPut:$^; nextPutAll: cEnumValueNode cName])]
+                    s nextPutAll: cEnumValueNode smalltalkName; cr; cr.
+                    s tab; nextPut:$^; nextPutAll: cEnumValueNode smalltalkName])]
 
     "Created: / 03-07-2008 / 20:10:34 / Jan Vrany <vranyj1@fel.cvut.cz>"
-    "Modified: / 04-07-2008 / 09:24:44 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 04-07-2008 / 11:58:27 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 visitCFunctionNode:functionNode