Using Peter Spjuth's pdf4tcl package it is very easy to produce PDF files containing the displayed diagram. A possible use is for inclusion in Latex or Word documents.

Typical code to create the PDF file:

after 1000 {
    set pdf1 [::pdf4tcl::new %AUTO% -paper {9.5c 6.0c}]
    $pdf1 canvas .c -width 9.2c
    $pdf1 write -file $filename.pdf
}

(The [after] is to make sure the canvas has been drawn completely)

Merged into trunk with commit [26e059e283].

Thanks to Arjen for that final work.

Fixed canvas_pdf.tcl - Version bumped to 1.0.1.

Fixed application.tcl - Version bumped to 1.3.

NOTE: Fixed your application patch, was not working as indented. 'package present' throws an error when the package is not present. You have to catch it, not [llength] on the error message you see in an interactive tclsh.

Revision [04b7108ed8]. Committed. Pushed. Note: This is on branch "dia-pdf".

I have attached a patch for application.tcl - to show an error on screen if Tk has been loaded.

I found a small bug in canvas_pdf.tcl -- .canvas should have been $canvas.

(Something unexpected happening with fossil - to be reported separately - prevents me from applying it directly).

Also, a small problem on Windows with the application submodule: errors are not shown when using wish (there is no proper terminal to show the error message in). Also to be reported separately.

Commit [100fa48b6b]

Fixed oops. Updated pkgIndex.tcl to know about "canvas::pdf".

Commit [2446bda270]. Pushed.

This is on branch "dia-pdf".

Implemented a package "canvas::pdf" which encapsulates the above code in a form usable to "diagram::application", i.e. the apps/diagram-viewer.

After installing the extended tklib the dia-viewer should automatically accept "pdf" as a new output format.

Please test.