Strange indeed, we will check Cheers, Alexandre On 31 Oct 2010, at 08:13, Stéphane Ducasse wrote:

Patching XMLNode>>printOn: like that seems to work.

XMLNode>>printOn: aStream | writer |

writer := XMLWriter on: aStream.

...

...

writer enablePrettyPrinting. self printXMLOn: writer. writer flushMarkup.

Now this is clearly not a good solution. I will change my code not to be based on the printOn behavior and use a writer instead.

Now I do not understand why we create a writer for each printOn: message

Stef

On Oct 31, 2010, at 12:03 PM, Stéphane Ducasse wrote:

...

In my really old code I wrote

save "self new save"

| doc | doc := self buildXML. doc printOn: self stream

buildXML

^ self base asXML

Base>>asXML "BDBase uniqueInstance asXML"

| doc elem | doc := XMLDocument new. doc version: '1.0'. elem := XMLElement name: #Base attributes: (Dictionary new at: 'date' put: Date today asString; at: 'entriesNumber' put: self elements size asString; at: 'note' put: self note asString; yourself). doc addElement: elem. self elements do: [:each | elem addElement: each asXML]. ^ doc

Elements>>asXML ^ XMLElement name: self class xmlName attributes: self attributes

So how can I control that each elements ends with a linebreak/cr whatever?

Stef

-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.