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