use Tk;
require "/home/ghosh/personal/tk_perl/HListplus.pm";
require "/home/ghosh/personal/tk_perl/MTree.pm";

my $mw = MainWindow->new();
my $frame = $mw->Frame()->pack();
my $tree = $frame->Scrolled(
                            'MTree',
                            -height => 20,
                            -width => 50,
                            -columns => 4,
                            );


$tree->add(ROOT_ITEM_PATH, -itemtype => 'text', -text => 'Jobs for test');

$tree->header('create', 1 , -itemtype => 'text',-text => 'Cells',);
$tree->header('create', 1 , -itemtype => 'text',-text => 'ID',);