diff options
Diffstat (limited to 'itcl/iwidgets/demos/canvasprintdialog')
-rw-r--r-- | itcl/iwidgets/demos/canvasprintdialog | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/itcl/iwidgets/demos/canvasprintdialog b/itcl/iwidgets/demos/canvasprintdialog new file mode 100644 index 00000000000..c628280ca4c --- /dev/null +++ b/itcl/iwidgets/demos/canvasprintdialog @@ -0,0 +1,31 @@ +# ---------------------------------------------------------------------- +# DEMO: canvasprintdialog in [incr Widgets] +# ---------------------------------------------------------------------- +package require Iwidgets 4.0 + +option add *textBackground seashell + +# +# Make a canvas for the main application: +# +canvas .c -width 200 -height 200 -background white +pack .c + +.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" + +button .print -text "Print..." -command { + if {[.pcd activate]} { + puts "use command \".pcd print\" to really print" + } else { + puts "aborted" + } +} +pack .print + +iwidgets::canvasprintdialog .pcd -modality application \ + -printcmd "lpr" -pagesize "A4" + +.pcd setcanvas .c |