Artifact 290ad6acbea9022878c72bc69ae723bca67a8a6f:
- Executable file examples/diagrams/draw_anchor.tcl — part of check-in [94c98d35bd] at 2007-01-16 21:10:53 on branch trunk — Added "package require" to the examples - draw_chemical.tcl needs fixing (user: arjenmarkus size: 314)
package require Tk package require Diagrams namespace import ::Diagrams::* pack [canvas .c -width 200 -height 120 -bg white] drawin .c direction southeast currentpos [position 20 20] arrow "" 40 box " A " direction southeast currentpos [position 120 20] arrow "" 40 attach northwest box " B " saveps anchor.ps