print tcl tk

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