1 "{ Package: 'stx:goodies/xmlsuite/xquery' }"

     2 

     3 "{ NameSpace: XQuery }"

     4 

     5 AstNode subclass:#AstDirElemContent

     6 	instanceVariableNames:'content dirElemContent'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'XQuery-AST'

    10 !

    11 

    12 

    13 !AstDirElemContent methodsFor:'accessing'!

    14 

    15 content

    16     ^ content

    17 

    18     "Created: / 30-06-2006 / 20:29:40 / ked"

    19 !

    20 

    21 content:something

    22     content := something.

    23 

    24     "Created: / 30-06-2006 / 20:29:40 / ked"

    25 !

    26 

    27 dirElemContent

    28     ^ dirElemContent

    29 

    30     "Created: / 30-06-2006 / 20:29:40 / ked"

    31 !

    32 

    33 dirElemContent:something

    34     dirElemContent := something.

    35 

    36     "Created: / 30-06-2006 / 20:29:40 / ked"

    37 ! !

    38 

    39 !AstDirElemContent methodsFor:'testing'!

    40 

    41 isAstDirElemContent

    42     ^ true

    43 

    44     "Modified: / 12-10-2006 / 21:57:46 / ked"

    45 ! !

    46 

    47 !AstDirElemContent methodsFor:'visiting'!

    48 

    49 acceptVisitor:aVisitor 

    50     "Double dispatch back to the visitor, passing my type encoded in

    51      the selector (visitor pattern)"

    52 

    53     "stub code automatically generated - please change if required"

    54 

    55     ^ aVisitor visitAstDirElemContent:self

    56 

    57     "Created: / 06-07-2006 / 19:12:10 / ked"

    58 ! !

    59 

    60 !AstDirElemContent class methodsFor:'documentation'!

    61 

    62 version

    63     ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xquery/XQuery__AstDirElemContent.st,v 1.1 2006-12-05 14:06:02 vranyj1 Exp $'

    64 ! !