tkdraw

Tkdraw is a very simple drawing tool, implemented as a wish script providing a thin user-interface layer on top of tk's canvas widget. It is fairly primitive, but I actually do use it for simple drawings, producing GIF images for web pages, simple one-page documents intended for fax or printout (ie, memos) and the like.

There are many ways it could be improved: dragging or more sophisticated selection of elements on the canvas, more extensive grouping operations, and so on. But it is adequate to the limited role I use it in for now, and is intended to be a simple but complete drawing tool entirely in vanilla tcl, kept simple for usefulness as a tutorial.

One of the ways in which it is kept simple is that canvas subcommand arguments are used as a kind of "property sheet", so that adding colors, arrows on lines, spline parameters for curved lines, and so on, are all provided by simply passing them through, thus making the script many times smaller than it might otherwise have to be.

Enjoy. Comments welcome.