--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/xsl-fo/trunk/FO__Document.st	Tue Apr 08 19:47:42 2008 +0000
@@ -0,0 +1,67 @@
+"{ Package: 'stx:goodies/xmlsuite/xsl-fo' }"
+
+"{ NameSpace: FO }"
+
+XMLv2::Document subclass:#Document
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'FO'
+!
+
+
+!Document class methodsFor:'accessing'!
+
+foNamespace
+
+    ^'http://www.w3.org/1999/XSL/Format'
+
+    "Created: / 07-04-2007 / 09:53:48 / janfrog"
+! !
+
+!Document methodsFor:'DOM3 interface'!
+
+createElement: localName
+
+    ^self createElement: localName ns:self class foNamespace
+
+    "Created: / 07-04-2007 / 10:10:34 / janfrog"
+    "Modified: / 07-04-2007 / 15:01:46 / janfrog"
+!
+
+createElement: localName ns: namespaceURI
+
+    namespaceURI ~= self class foNamespace ifTrue:
+        [^super createElement: localName ns: namespaceURI].
+
+    ^(Element allElementClasses 
+        detect:[:cls|cls localName = localName]
+        ifNone:[^self error:'fo:',localName, ' element not supported']) new
+        setOwnerDocument:self;
+        localName: localName;
+        ns:self class foNamespace
+
+    "Created: / 07-04-2007 / 15:01:28 / janfrog"
+! !
+
+!Document methodsFor:'accessing - dimensions'!
+
+height
+
+    ^self documentElement height
+
+    "Created: / 08-04-2007 / 09:31:26 / janfrog"
+!
+
+width
+
+    ^self documentElement width
+
+    "Created: / 08-04-2007 / 09:31:31 / janfrog"
+! !
+
+!Document class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xsl-fo/FO__Document.st,v 1.1 2007-04-13 15:40:13 vranyj1 Exp $'
+! !