use Tk;
use Tk::HList;
use Tk::Pane;
use Tk::DragDrop;

use strict;
use warnings;

my $mw = MainWindow->new;

my $pane = $mw->Scrolled('Pane',
                         -width => 800,
                         -height => 400,
                         -sticky => 'nsew',
                         -scrollbars => 'os',
           )->pack(-fill => 'both',
             -expand => 1);

addCol(1);
addCol(2);
addCol(3);

sub addCol {

	my $id = shift;

	my $width = 200;

	my $frame = $pane->Frame(
							-relief => "ridge",
                            -bd     => 1,
                            -width  => $width,
                        )->pack(-side => 'left',
                         -fill => 'both',
                         -expand => 1,
         );

	# DnD SUPPORT!

	#my $frame1 = $frame->Frame()->pack();
	#my $frame2 = $frame->Frame()->pack();

	my $drag_source = $frame->DragDrop(
		    -event     => '<B1-Motion>',
		    -sitetypes => [qw/Local/],
	);

	my $adjuster = $pane->Adjuster();
	$adjuster->packAfter($frame, -side => 'left');

	my $label = $frame->Label(-width => 30, -text  => "Test" . $id,
						)->pack(-fill => "both");


	my $hlist = $frame->Scrolled("HList",
			-scrollbars => 'osoe',
			-selectmode => 'extended'
			)->pack(-fill => "both", -expand => 1);


}

MainLoop;