package require Iwidgets
wm title . "Simple Example"
label .label \
-relief raised
.label configure \
-text "The best print samples"
pack .label \
-fill x \
-expand true
iwidgets::canvasprintbox .cpb \
-stretch 0 \
-filename "canvas_out.ps" \
-orient portrait \
-output file \
-pagesize Letter
pack .cpb