use Tk;
use Tk::HList;
use Tk::ItemStyle;
use Tk::BrowseEntry;


my $mw =  new MainWindow;
$mw->title("View");
$mw->geometry("560x320");
my $userframe = $mw->Frame(-width=>5,-height=>10)->pack(-side=>'top',-anchor=>'nw');
$userframe->Label(-text => "USER: $user")->pack(-side => 'left',-anchor => 'w',-padx => 0);
$userframe->Label(-text => "Set time(sec)")->pack(-side => 'left',-anchor => 'w',-padx => 0);
my $frequency = $userframe->Entry(-width=> 5,-textvariable=> \$sec)->pack(-side => 'left',-anchor => 'nw',-padx => 0);
$userframe->Label(-text => "Select File")->pack(-side => 'left',-anchor => 'w',-padx => 0);

$userframe->BrowseEntry(
  									-state => 'normal',
									-choices => [keys %url],
									-variable => \$selectfile,
									-browsecmd => \&read_file,
									)->pack(-side=>'right',-anchor =>'e');


my $hlistframe = $mw->Frame()->pack(-fill => 'both',-expand=>1); my $hl;
my $bottomframe = $mw->Frame()->pack(-fill => 'both', -expand => 1); 
$bottomframe->Button(-text => "Display File",-command => \&dumpOnTerminal)->pack(-side=>'right',-anchor => 'se',-fill=>'both');
my ($label1,$label2,$label3,$label4,$label5,$label6,$label7);


$hl = $hlistframe->Scrolled('HList',
					-scrollbars => 'ose',
					-columns  =>7 ,
					-header   => 1,
					-width    => 100,
					-command => sub {print "AAA\n";},
					)->pack(-fill => 'both',-expand =>1 );

$label1 = $hl->Label(-text => "Tool", -anchor => 'w');
$hl->headerCreate(0,-itemtype => 'window',-widget => $label1)
;
$label2 = $hl->Label(-text => "Vendor", -anchor => 'w');
$hl->headerCreate(1,-itemtype => 'window',-widget => $label2);

 $label3 = $hl->Label(-text => "Available", -anchor => 'w');
$hl->headerCreate(2,-itemtype => 'window',-widget => $label3);

 $label4 = $hl->Label(-text => "num.", -anchor => 'w');
$hl->headerCreate(3,-itemtype => 'window',-widget => $label4);

 $label5 = $hl->Label(-text => "usage%", -anchor => 'w');
$hl->headerCreate(4,-itemtype => 'window',-widget => $label5);

 $label6 = $hl->Label(-text => "user", -anchor => 'w');
$hl->headerCreate(5,-itemtype => 'window',-widget => $label6);

 $label7 = $hl->Label(-text => "user%", -anchor => 'w');
$hl->headerCreate(6,-itemtype => 'window',-widget=> $label7);





MainLoop;