use Tk::WinPhoto;
my $imgsheet = $canwellsketch->Photo(
    -format => 'Window',
    -data   => oct( $canwellsketch->id ),
  );
$imgsheet->write(
    "screenshot.gif",
    -format => 'GIF'
  );

##</code><code>##

$canwellsketch->postscript(
    -file      => "test.ps",
    -x         => ( $canwellsketch->bbox( "all" ) )[0],
    -y         => ( $canwellsketch->bbox( "all" ) )[1],
    -width     => 600,
    -height    => 400,
    -pagewidth => 600,
  );