arduino-0018-windows

arduino-0018-windows/hardware/tools/avr/share/iwidgets4.0.1/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