Subversion Repositories or1k_old

#!/bin/sh

# ----------------------------------------------------------------------

#  DEMO: canvasprintdialog in [incr Widgets]

# ----------------------------------------------------------------------

#\

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

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