use strict;
use warnings;

use Tk;
my $mw = new MainWindow;
my $fl = $mw->Frame(-background=> 'blue', -width=>"500", -height=>"500") ->pack(qw/ -side left -anchor nw -expand 1 -fill both /);
my $index = 0;

my @go = (-sticky => 'ew');

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

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

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

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

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

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

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

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

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

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

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

$fl->gridColumnconfigure($_, -weight => 1) for (0..4);
MainLoop;