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

     2 

     3 "{ NameSpace: RNG }"

     4 

     5 DataType subclass:#TextDataType

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'Relax NG-Data Type Library'

    10 !

    11 

    12 TextDataType class instanceVariableNames:'soleInstance'

    13 

    14 "

    15  No other class instance variables are inherited by this class.

    16 "

    17 !

    18 

    19 

    20 !TextDataType class methodsFor:'accessing'!

    21 

    22 default

    23 

    24     soleInstance ifNil:[soleInstance := self new].

    25     ^soleInstance

    26 

    27     "Created: / 02-05-2005 / 11:21:47 / janfrog"

    28 !

    29 

    30 typename

    31     "Superclass says that I am responsible to implement this method"

    32 

    33     ^'text'

    34 

    35     "Created: / 02-05-2005 / 11:20:59 / janfrog"

    36 ! !

    37 

    38 !TextDataType methodsFor:'instance creation'!

    39 

    40 createObjectFromString:arg 

    41 

    42     ^arg

    43 

    44     "Created: / 02-05-2005 / 11:20:59 / janfrog"

    45 !

    46 

    47 createStringFromObject:arg 

    48 

    49     ^arg

    50 

    51     "Created: / 02-05-2005 / 11:20:59 / janfrog"

    52 ! !

    53 

    54 !TextDataType methodsFor:'queries'!

    55 

    56 acceptsEmptyStringAsContent

    57     ^true

    58 

    59     "Created: / 14-06-2005 / 12:16:52 / masca"

    60 ! !

    61 

    62 !TextDataType class methodsFor:'documentation'!

    63 

    64 version

    65     ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/relaxng/RNG__TextDataType.st,v 1.1.1.1 2005-11-01 22:07:16 vranyj1 Exp $'

    66 ! !