#!/usr/bin/perl
use Tk;
my $mw = new MainWindow;
my $fl = $mw->Frame(-background=> 'blue', -width=>"500", -height=>"500") ->pack(qw/ -side left -anchor nw/);
my $index = 0;

my $l1 = $fl->Label(-text=>'Index', -width=>6, -relief =>'raised')
                    ->grid(-column=> 0,
                           -row=> 0);

my $l2 = $fl->Label(-text=>'X1', -width=>13, -relief =>'raised')
                    ->grid(-column=> 1,
                           -row =>0);

my $l3 = $fl->Label(-text=>'Y1', -width=>13, -relief =>'raised')
                    ->grid(-column=> 2,
                           -row =>0);

my $l4 = $fl->Label(-text=>'X2', -width=>13, -relief =>'raised')
                    ->grid(-column=> 3,
                           -row =>0);

my $l5 = $fl->Label(-text=>'Y2', -width=>13, -relief =>'raised')
                    ->grid(-column=>4,
                           -row =>0);

my $indexlist = $fl->Listbox( -width =>6, -height => 30)
                             ->grid(
                             -column=> 0,
                             -row=> 1);

   $indexlist->insert("end", "$index");
my $x1list = $fl->Listbox( -width =>13, -height => 30)
                             ->grid(
                             -column=> 1,
                             -row=> 1);

   $x1list->insert("end", "$index");
my $y1list = $fl->Listbox(-width =>13, -height => 30)
                             ->grid(
                             -column=> 2,
                             -row=> 1);

   $y1list->insert("end", "$index");
my $x2list = $fl->Listbox(-width =>13, -height => 30)
                             ->grid(
                             -column=> 3,
                             -row=> 1);

   $x2list->insert("end", "$index");
my $y2list = $fl->Listbox(-width =>13, -height => 30)
                             ->grid(
                             -column=> 4,
                             -row=> 1);

   $y2list->insert("end", "$index");


MainLoop;