7 lines
205 B
Tcl
7 lines
205 B
Tcl
|
package require tdom
|
||
|
|
set d [dom createDocument root]
|
||
|
|
set root [$d documentElement]
|
||
|
|
$root appendChild [$d createElement element]
|
||
|
|
[$root firstChild] appendChild [$d createTextNode "Some text here"]
|
||
|
|
$d asXML
|