1 "{ Package: 'stx:goodies/xmlsuite/xsl-fo' }"

     2 

     3 "{ NameSpace: FO }"

     4 

     5 XMLv2::Document subclass:#Document

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'FO'

    10 !

    11 

    12 

    13 !Document class methodsFor:'accessing'!

    14 

    15 foNamespace

    16 

    17     ^'http://www.w3.org/1999/XSL/Format'

    18 

    19     "Created: / 07-04-2007 / 09:53:48 / janfrog"

    20 ! !

    21 

    22 !Document methodsFor:'DOM3 interface'!

    23 

    24 createElement: localName

    25 

    26     ^self createElement: localName ns:self class foNamespace

    27 

    28     "Created: / 07-04-2007 / 10:10:34 / janfrog"

    29     "Modified: / 07-04-2007 / 15:01:46 / janfrog"

    30 !

    31 

    32 createElement: localName ns: namespaceURI

    33 

    34     namespaceURI ~= self class foNamespace ifTrue:

    35         [^super createElement: localName ns: namespaceURI].

    36 

    37     ^(Element allElementClasses 

    38         detect:[:cls|cls localName = localName]

    39         ifNone:[^self error:'fo:',localName, ' element not supported']) new

    40         setOwnerDocument:self;

    41         localName: localName;

    42         ns:self class foNamespace

    43 

    44     "Created: / 07-04-2007 / 15:01:28 / janfrog"

    45 ! !

    46 

    47 !Document methodsFor:'accessing - dimensions'!

    48 

    49 height

    50 

    51     ^self documentElement height

    52 

    53     "Created: / 08-04-2007 / 09:31:26 / janfrog"

    54 !

    55 

    56 width

    57 

    58     ^self documentElement width

    59 

    60     "Created: / 08-04-2007 / 09:31:31 / janfrog"

    61 ! !

    62 

    63 !Document class methodsFor:'documentation'!

    64 

    65 version

    66     ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xsl-fo/FO__Document.st,v 1.1 2007-04-13 15:40:13 vranyj1 Exp $'

    67 ! !