--- a/Cface__Generator.st	Thu Jul 03 22:00:07 2008 +0000
+++ b/Cface__Generator.st	Fri Jul 04 08:35:55 2008 +0000
@@ -3,7 +3,7 @@
 "{ NameSpace: Cface }"
 
 CNodeVisitor subclass:#Generator
-	instanceVariableNames:'changeset'
+	instanceVariableNames:'changeset module'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Cface-Generators'
@@ -215,6 +215,20 @@
     "Created: #generateStructOrUnionCreateNULLPointerMethod: / 06-01-2008 / 16:09:47 / haja"
 ! !
 
+!Generator methodsFor:'accessing'!
+
+module
+    ^ module
+
+    "Created: / 04-07-2008 / 07:41:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+module:aString
+    module := aString.
+
+    "Created: / 04-07-2008 / 07:41:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
 !Generator methodsFor:'initialization'!
 
 initialize