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

     2 

     3 "{ NameSpace: XQuery }"

     4 

     5 Object subclass:#FunctionParam

     6 	instanceVariableNames:'name type'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'XQuery-Functions'

    10 !

    11 

    12 

    13 !FunctionParam methodsFor:'accessing'!

    14 

    15 name

    16     ^ name

    17 

    18     "Created: / 28-12-2006 / 14:10:44 / janfrog"

    19 !

    20 

    21 name:something

    22     name := something.

    23 

    24     "Created: / 28-12-2006 / 14:10:44 / janfrog"

    25 !

    26 

    27 type

    28     ^ type

    29 

    30     "Created: / 28-12-2006 / 14:10:44 / janfrog"

    31 !

    32 

    33 type:something

    34     type := something.

    35 

    36     "Created: / 28-12-2006 / 14:10:44 / janfrog"

    37 ! !

    38 

    39 !FunctionParam class methodsFor:'documentation'!

    40 

    41 version

    42     ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xquery/XQuery__FunctionParam.st,v 1.1 2007-01-03 08:52:38 vranyj1 Exp $'

    43 ! !