--- a/Cface__SmalltalkXGenerator.st	Tue Sep 04 15:07:07 2012 +0000
+++ b/Cface__SmalltalkXGenerator.st	Wed Sep 05 11:12:41 2012 +0000
@@ -36,22 +36,23 @@
         [:s|
         s 
             nextPutAll: 'libraryName'; cr; cr;
-            tab; 
+            tab4; 
                 nextPutAll: 'OperatingSystem isUNIXlike ifTrue:[^';
                 nextPutAll: unixLibraryName storeString;
                 nextPutAll: '].';
                 cr; cr;
-            tab; 
+            tab4; 
                 nextPutAll: 'OperatingSystem isMSWINDOWSlike ifTrue:[^';
                 nextPutAll: win32LibraryName storeString;
                 nextPutAll: '].';
                 cr; cr;
-            tab;
+            tab4;
                 nextPutAll:'self error:''Library name for host OS is not known'''.
 
         ]
 
     "Created: / 10-07-2008 / 09:04:56 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 05-09-2012 / 11:48:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 sourceForPrimitive:functionNode 
@@ -62,7 +63,7 @@
             s
                 cr;
                 cr;
-                tab;
+                tab4;
                 nextPutAll:'<cdecl:';
                 space;
                 nextPutAll:functionNode return ffiTypeSymbol;
@@ -84,11 +85,12 @@
             s nextPut:$>.
             s
                 cr;
-                tab.
+                tab4.
             s nextPutAll:'self primitiveFailed'.
         ])
 
     "Created: / 10-07-2008 / 09:00:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 05-09-2012 / 11:48:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 sourceForStructFieldGetter:field 
@@ -97,8 +99,10 @@
             s
                 nextPutAll:(field smalltalkName);
                 cr;
+                tab4; nextPutAll:'"Returns '; nextPutAll: field type printString; nextPutAll: '"';
                 cr;
-                tab;
+                cr;
+                tab4;
                 nextPutAll:'^self';
                 space;
                 nextPutAll:field stxStructFieldGetterSelector;
@@ -107,6 +111,7 @@
         ])
 
     "Created: / 09-09-2008 / 21:25:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 05-09-2012 / 11:52:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 sourceForStructFieldSetter:field 
@@ -122,7 +127,7 @@
                 nextPutAll:'value';
                 cr;
                 cr;
-                tab;
+                tab4;
                 nextPutAll:'self';
                 space;
                 nextPutAll:field stxStructFieldSetterSelector keywords first;
@@ -134,6 +139,7 @@
         ])
 
     "Created: / 09-09-2008 / 21:26:07 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 05-09-2012 / 11:48:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 sourceForStructSize: size
@@ -142,12 +148,13 @@
         [:s|
         s 
             nextPutAll: 'structSize'; cr; cr;
-            tab; 
-                nextPutAll: '^';
-                nextPutAll: size printString
+            tab4; 
+            nextPutAll: '^';
+            nextPutAll: size printString
         ]
 
     "Created: / 09-09-2008 / 17:12:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 05-09-2012 / 11:48:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !SmalltalkXGenerator methodsFor:'visiting'!