[Tclxml-users] Creating document type node

[Derek F. <fo...@hu...>]

I'm using TclDOM-2.0 shipped with Activestate Tcl, and although this is the 
first "from-scratch" DOM I've built, it's mostly going well. I've a problem 
right at the top though: I want to create the DOCTYPE line with the DTD in 
it. The result as printed from the "serialize" routine should be:

<!DOCTYPE product SYSTEM "testplan.dtd">

So right at the top of my script I do:

set doc [::dom::DOMImplementation create]
::dom::DOMImplementation createDocumentType $doc "" "testplan.dtd"
set top [::dom::document createElement $doc "product"]

but no matter how much I tinker with the line, I always get an error like:

mismatch between root element type in document type declaration "SYSTEM" and 
root element "product"

Can someone tell me what I'm doing wrong?

-- 
 12:13pm  up 52 days,  4:19,  1 user,  load average: 0.04, 0.10, 0.05