| # ---------------------------------------------------------------------- |
| # 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 |