Changeset 442 for trunk/Include/Classes/System/Xml/XmlDeclaration.ab

Timestamp:

Feb 28, 2008, 11:06:09 PM (16 years ago)

Author:

dai

Message:

XmlNodeType列挙型を実装

File:

• trunk/Include/Classes/System/Xml/XmlDeclaration.ab (modified) (1 diff)

trunk/Include/Classes/System/Xml/XmlDeclaration.ab

@@ -14 +14 @@
 Public
     Sub XmlDeclaration( version As String, encoding As String, standalone As String, doc As XmlDocument )
-        XmlLinkedNode( "", "xml", "", doc )
+        XmlLinkedNode( XmlNodeType.XmlDeclaration, "", "xml", "", doc )
         This.version = version
         This.encoding = encoding
         This.standalone = standalone
     End Sub
+
+Protected
+    Override Function InnerXmlSupportedIndent( isIndent = False As Boolean, indent = 0 As Long ) As String
+        Return Ex"version=\q" + This.version + Ex"\q encoding=\q" + This.encoding + Ex"\q"
+    End Function
+
+    Override Function OwnerXmlSupportedIndent( isIndent = False As Boolean, indent = 0 As Long ) As String
+        Return "<?" + InnerXml + "?>"
+    End Function
 End Class