Posted to tcl by mjanssen at Thu Feb 12 18:48:51 GMT 2015view pretty

set doc [[dom parse {<test xmlns="http://www.google.com"/>}] documentElement]
set child [[dom parse {<item/>}] documentElement]
$child setAttribute xmlns "http://www,google.com"
$doc appendChild $child
$doc asXML