1package require Tk 2package require Diagrams 3namespace import ::Diagrams::* 4 5pack [canvas .c -width 200 -height 120 -bg white] 6drawin .c 7 8direction southeast 9currentpos [position 20 20] 10arrow "" 40 11box " A " 12 13direction southeast 14currentpos [position 120 20] 15arrow "" 40 16attach northwest 17box " B " 18 19saveps anchor.ps 20