use strict;

use Tk 800.005;
use Tk::TList;
use Tk::DirTree;
use Tk::Frame;
use Tk::Scrollbar;
use Tk::Adjuster;


use vars qw/%tk %dr %im @users @groups $dnd_token/;

$tk{mw} = MainWindow->new(-background => 'white');

$tk{mw}->geometry('500x400');

$tk{left_frame}  = $tk{mw}->Frame;
$tk{adjuster}    = $tk{mw}->Adjuster(-widget=> $tk{left_frame}, -side=>'left');
$tk{right_frame} = $tk{mw}->Frame;

$tk{dir_tree}    = $tk{left_frame}->Scrolled('DirTree',
                         -height=>'0',
                         -width=>'0',
                         -scrollbars=>'e', );

$tk{output_list} = $tk{right_frame}->Scrolled('TList',
                          -height=>'1',
                          -width=>'1',
                          -scrollbars=>'osoe',);

$tk{user_list} = $tk{right_frame}->Scrolled('TList',
                        -height=>'1',
                        -width=>'1',
                        -scrollbars=>'osoe',);
                        
$tk{group_list} = $tk{right_frame}->Scrolled('TList',
                         -height=>'1',
                         -width=>'1',
                         -scrollbars=>'osoe',);
                         
$tk{user_label}   = $tk{right_frame}->Label(-text => "Source Machines");
$tk{group_label}  = $tk{right_frame}->Label(-text => "Applications");
$tk{output_label} = $tk{right_frame}->Label(-text => "WinBcp Hosts");

$tk{dir_tree}-> delete('all');    
$tk{dir_tree}-> chdir ("c:\\");

$tk{left_frame}->pack(qw/-side left -fill y/);
$tk{adjuster}->pack(qw/-side left -fill y/);
$tk{right_frame}->pack(qw/-side right -fill both -expand 1/);

$tk{dir_tree}    ->pack(qw/-side left -fill both -expand 1/);
$tk{output_label}->pack(qw/-side top -fill both/);
$tk{output_list} ->pack(qw/-side top -fill both -expand 1/);
$tk{user_label}  ->pack(qw/-side top -fill both/);
$tk{user_list}   ->pack(qw/-side top -fill both -expand 1/);
$tk{group_label} ->pack(qw/-side top -fill both/);
$tk{group_list}  ->pack(qw/-side top -fill both -expand 1/);

MainLoop;
exit 0;