diff options
Diffstat (limited to 'itcl/iwidgets3.0.0/demos/canvasprintbox')
| -rw-r--r-- | itcl/iwidgets3.0.0/demos/canvasprintbox | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/itcl/iwidgets3.0.0/demos/canvasprintbox b/itcl/iwidgets3.0.0/demos/canvasprintbox new file mode 100644 index 00000000000..3ee0da26ece --- /dev/null +++ b/itcl/iwidgets3.0.0/demos/canvasprintbox @@ -0,0 +1,24 @@ +#!/bin/sh +# \ + exec itkwish "$0" ${1+"$@"} + +package require Iwidgets 3.0 + +# itkwish interprets the rest... +# ---------------------------------------------------------------------- +option add *textBackground seashell + +# +# Make a canvas for the main application: +# +canvas .c -width 200 -height 200 -background white + +.c create rectangle 30 30 150 150 -fill blue +.c create oval 70 70 190 190 -fill red +.c create polygon 60 50 110 180 10 180 -fill green +.c create text 100 5 -anchor n -text "Example Drawing" + +iwidgets::canvasprintbox .pcb -printcmd "lpr" -pagesize "A4" + +.pcb setcanvas .c + |