|
1 "{ Package: 'stx:goodies/xmlsuite' }" |
|
2 |
|
3 "{ NameSpace: XMLv2 }" |
|
4 |
|
5 Node subclass:#DocumentType |
|
6 instanceVariableNames:'name entities notations publicId systemId internalSubset' |
|
7 classVariableNames:'' |
|
8 poolDictionaries:'' |
|
9 category:'XML Suite-DOM3' |
|
10 ! |
|
11 |
|
12 |
|
13 !DocumentType methodsFor:'DOM3 helpers'! |
|
14 |
|
15 computeLookupPrefix:prefix |
|
16 |
|
17 ^"unknown"false |
|
18 |
|
19 "Created: / 18-06-2005 / 21:16:49 / janfrog" |
|
20 ! |
|
21 |
|
22 postAdoptedBy:aDocument |
|
23 |
|
24 ^self errorNotSupported |
|
25 |
|
26 "Created: / 25-12-2005 / 10:15:19 / janfrog" |
|
27 ! |
|
28 |
|
29 postImportBy:arg1 deep:arg2 |
|
30 self errorNotSupported |
|
31 |
|
32 "Created: / 25-12-2005 / 11:01:36 / janfrog" |
|
33 ! |
|
34 |
|
35 textContentOn:arg |
|
36 "Superclass says that I am responsible to implement this method" |
|
37 |
|
38 self shouldImplement |
|
39 |
|
40 "Created: / 18-06-2005 / 21:16:49 / janfrog" |
|
41 ! ! |
|
42 |
|
43 !DocumentType methodsFor:'DOM3 interface'! |
|
44 |
|
45 compareDocumentPosition:arg |
|
46 "Superclass says that I am responsible to implement this method" |
|
47 |
|
48 self shouldImplement |
|
49 |
|
50 "Created: / 18-06-2005 / 21:16:48 / janfrog" |
|
51 ! |
|
52 |
|
53 entities |
|
54 ^ entities |
|
55 |
|
56 "Created: / 24-12-2005 / 10:42:56 / janfrog" |
|
57 ! |
|
58 |
|
59 internalSubset |
|
60 ^ internalSubset |
|
61 |
|
62 "Created: / 24-12-2005 / 10:42:56 / janfrog" |
|
63 ! |
|
64 |
|
65 name |
|
66 ^ name |
|
67 |
|
68 "Created: / 24-12-2005 / 10:42:56 / janfrog" |
|
69 ! |
|
70 |
|
71 nodeName |
|
72 |
|
73 ^self name |
|
74 |
|
75 "Created: / 17-06-2005 / 11:34:16 / janfrog" |
|
76 ! |
|
77 |
|
78 nodeType |
|
79 |
|
80 ^Node DOCUMENT_TYPE_NODE |
|
81 |
|
82 "Created: / 17-06-2005 / 11:44:16 / janfrog" |
|
83 ! |
|
84 |
|
85 normalize |
|
86 "Superclass says that I am responsible to implement this method" |
|
87 |
|
88 self shouldImplement |
|
89 |
|
90 "Created: / 19-06-2005 / 13:31:19 / janfrog" |
|
91 ! |
|
92 |
|
93 notations |
|
94 ^ notations |
|
95 |
|
96 "Created: / 24-12-2005 / 10:42:56 / janfrog" |
|
97 ! |
|
98 |
|
99 publicId |
|
100 ^ publicId |
|
101 |
|
102 "Created: / 24-12-2005 / 10:42:56 / janfrog" |
|
103 ! |
|
104 |
|
105 systemId |
|
106 ^ systemId |
|
107 |
|
108 "Created: / 24-12-2005 / 10:42:56 / janfrog" |
|
109 ! ! |
|
110 |
|
111 !DocumentType methodsFor:'initialization'! |
|
112 |
|
113 setName: aString |
|
114 |
|
115 name := aString |
|
116 |
|
117 "Created: / 24-12-2005 / 10:43:35 / janfrog" |
|
118 ! |
|
119 |
|
120 setPublicId: aString |
|
121 |
|
122 publicId := aString |
|
123 |
|
124 "Created: / 24-12-2005 / 10:43:22 / janfrog" |
|
125 ! |
|
126 |
|
127 setSystemId: aString |
|
128 |
|
129 systemId := aString |
|
130 |
|
131 "Created: / 24-12-2005 / 10:43:28 / janfrog" |
|
132 ! ! |
|
133 |
|
134 !DocumentType methodsFor:'testing'! |
|
135 |
|
136 isDocumentType |
|
137 ^ true |
|
138 |
|
139 "Created: / 05-08-2005 / 14:27:51 / janfrog" |
|
140 ! ! |
|
141 |
|
142 !DocumentType methodsFor:'visiting'! |
|
143 |
|
144 acceptVisitor:aVisitor |
|
145 "Double dispatch back to the visitor, passing my type encoded in |
|
146 the selector (visitor pattern)" |
|
147 |
|
148 "stub code automatically generated - please change if required" |
|
149 |
|
150 ^ aVisitor visitDocumentType:self |
|
151 |
|
152 "Created: / 05-08-2005 / 13:09:35 / janfrog" |
|
153 ! ! |
|
154 |
|
155 !DocumentType class methodsFor:'documentation'! |
|
156 |
|
157 version |
|
158 ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/XMLv2__DocumentType.st,v 1.2 2005-12-25 10:52:39 vranyj1 Exp $' |
|
159 ! ! |