--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/core/trunk/XMLv2__OldXMLWriter__ContentHandler.st Thu Apr 10 09:14:47 2008 +0000
@@ -0,0 +1,92 @@
+XMLv2::ContentHandler subclass:#ContentHandler
+ instanceVariableNames:'writer'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:XMLv2::OldXMLWriter
+!
+
+!OldXMLWriter::ContentHandler methodsFor:'SAX2 interface'!
+
+characters:aString
+
+ writer
+ indent;
+ nextPutAll:aString withoutSeparators;
+ cr.
+
+ "Created: / 17-04-2005 / 09:08:07 / janfrog"
+!
+
+comment:string
+
+ writer
+ indent;
+ nextPutComment:string;
+ cr
+
+ "Created: / 17-04-2005 / 13:36:58 / janfrog"
+!
+
+endElement:localName namespace:namespace prefix:prefix
+ writer
+ decIndent;
+ indent;
+ nextPutOpenElement;
+ nextPut:$/;
+ nextPutElementPrefix:prefix localName:localName;
+ nextPutCloseElement;
+ cr
+
+ "Created: / 22-04-2005 / 21:41:16 / janfrog"
+ "Modified: / 18-10-2005 / 10:50:52 / janfrog"
+!
+
+processingInstruction:target data:data
+
+ writer
+ indent;
+ nextPutPI:target data:data;
+ cr
+
+ "Created: / 17-04-2005 / 13:36:38 / janfrog"
+!
+
+startDocument
+
+ writer
+ nextPutXMLDecl;
+ cr.
+
+ "Created: / 17-04-2005 / 09:33:58 / janfrog"
+!
+
+startElement:localName namespace:namespace prefix:prefix attributes:anAttributes
+ writer
+ indent;
+ nextPutOpenElement;
+ nextPutElementPrefix:prefix localName:localName;
+ nextPutAttributes:anAttributes implicitNamespace:namespace;
+ nextPutCloseElement;
+ cr;
+ incIndent.
+
+ "/nextPutAll:' <!!-- ns:',namespace,' -->'
+
+ "Created: / 22-04-2005 / 21:40:32 / janfrog"
+ "Modified: / 09-04-2007 / 11:20:13 / janfrog"
+! !
+
+!OldXMLWriter::ContentHandler methodsFor:'accessing'!
+
+writer
+ ^ writer
+
+ "Created: / 16-04-2005 / 20:37:10 / janfrog"
+!
+
+writer:something
+ writer := something.
+
+ "Created: / 16-04-2005 / 20:37:10 / janfrog"
+! !
+