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