#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::JPEG;
use Image::Magick;

my $im = Image::Magick->new;
my $image = shift || die "need image $!\n";  #roughly a 500x500 jpg
my ($width, $height, $size, $format) = $im->Ping($image); 

my $mw = MainWindow->new();

$mw->fontCreate('big',
   -family=>'courier',
  -weight=>'bold',
  -size=>int(-18*18/14));

my $canv = $mw->Canvas(
     -bg => 'lightsteelblue',
     -relief => 'sunken',
     -width => $width,
     -height => $height)->pack(-expand => 1, -fill => 'both');

my $img = $mw->Photo(-file => $image );
$canv->createImage( 0, 0, -image => $img, -anchor => 'nw' );

my $text = $mw->Scrolled('Text', 
                -bg=>'lightyellow',
                -scrollbars=>'osoe',
                     );

my $textcontainer = $canv->createWindow(
    $width/2, $height/2,
   -window => $text,
   -width => $width -200,
   -height => $height-200,
   -state => 'normal');

my $button = $mw->Button( 
                -bg=>'lightblue',
                -text=>'Push Me',
                -command=> sub{ $text->insert('end',time."\n")},
                     );

my $butcontainer = $canv->createWindow(
    125, 25,
   -window => $button,
   -width => 125,
   -height => 25,
   -state => 'normal');


my $ctext = $canv->createText( 300,20,
              -font=>'big',
              -fill=> 'white',
              -text=>'la di da');


bunchOfBoxes();

$text->focus;

MainLoop();

sub bunchOfBoxes 
{
  for(0..10){
    my $window = $canv->Checkbutton(-text=> $_);
    $canv->createWindow(450, 20 + ($_ * 20),
          -window=> $window);
     
     }
 }
[download]