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

use Tk;

use Tk::TList;
use Tk::ItemStyle;

my $mw = MainWindow->new();
my $style = $mw->ItemStyle('window');


my $tl = $mw->Scrolled("TList", -scrollbars => "osoe")->pack(-side=>'left', -fill => 'y');

$mw->Button(-text => "UP", -command => \&press_func_up)->pack();
$mw->Button(-text => "DOWN", -command => \&press_func_dwn)->pack();


foreach my $item ("State" , "Dependency", "CalcTime", "Result")
{
	my $btn   = $tl->Checkbutton(-text => $item);

	$tl->insert('end', -itemtype => 'window', -style => $style, -widget => $btn);

}

sub press_func_up
{
	# Move items up	

}
	
sub press_func_dwn
{
		# Move items up	

}


MainLoop;