1 files changed, 31 insertions, 0 deletions
diff --git a/iwidgets/demos/canvasprintdialog b/iwidgets/demos/canvasprintdialog
new file mode 100644
index 00000000000..c628280ca4c
--- /dev/null
+++ b/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