--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Cface__CStructuredNode.st	Thu Jul 10 07:31:14 2008 +0000
@@ -0,0 +1,33 @@
+"{ Package: 'cvut:fel/cface' }"
+
+"{ NameSpace: Cface }"
+
+CDerivedTypeNode subclass:#CStructuredNode
+	instanceVariableNames:'fields'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Cface-C AST'
+!
+
+!CStructuredNode methodsFor:'accessing'!
+
+fields
+    ^ fields
+
+    "Created: / 10-07-2008 / 08:43:26 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+fields:aCollection
+    fields := aCollection.
+    fields do:[:f|f owner: self].
+
+    "Created: / 10-07-2008 / 08:43:26 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+smalltalkxValueExtractionSelector
+
+    ^#at:
+
+    "Created: / 10-07-2008 / 08:43:58 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+