#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = MainWindow->new();
my $width = 500;
my $height = 500;

$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 $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);
     
     }
 }
__END__