Richard Suchenwirth - UML, the Unified Modeling Language, is a convention for drawing diagrams in object-oriented analysis and design. After an OOA/D course (without a CASE tool at hand), I felt tempted to draw UML graphic objects on a canvas.
The first shot is a class box for class diagrams:
proc umlbox {c x y class} {
foreach {name atts meths} $class break
set id [$c create text $x $y -text $name -anchor nw -font {Helvetica 8 bold}]
$c itemconfig $id -tag box$id
set y1 [expr [lindex [$c bbox $id] 3]]
$c create text $x $y1 -text [join $atts \n] -anchor nw -font {Helvetica 8} -tag box$id
set y2 [expr [lindex [$c bbox box$id] 3]]
$c create text $x $y2 -text [join $meths \n] -anchor nw -font {Helvetica 8} -tag box$id
foreach {x0 y0 x1 y3} [$c bbox box$id] break
set x0 [expr $x0-2]
$c create rect $x0 $y0 $x1 $y3 -tag box$id
$c create line $x0 $y1 $x1 $y1 -tag box$id
$c create line $x0 $y2 $x1 $y2 -tag box$id
return box$id
}Usage example:
umlbox $c 50 50 {Longname {att1 att2} {meth1 meth2}}More to come...