#!/usr/bin/perl

use warnings;
use Tk;
use Tk::Tree;

Create_Items();    
Configure_Items(); 
TreeConfigure(); 
Add_Dirs(); 
MainLoop();

sub Create_Items
{
    $Toplevel = new MainWindow;
    $Frame    = $Toplevel->Frame();
    $BFrame = $Toplevel->Frame();
    $Label = $Frame->Label();
    $Tree = $Frame->Scrolled('Tree', -scrollbars => 'ose');
    $Ok = $BFrame->Button(-text => 'Okay');
}

sub Configure_Items
{
    $Toplevel->configure
    (
        -title          => 'Dir. Listing',
        -relief      =>    'ridge',
        -borderwidth =>    5,
    );        
        
    $Label->configure
    (
        -text    => 'Dir. Listing',
        -padx    => 50,
        -relief    => 'ridge',
    );
        
    $Ok->configure
    (
        -relief    => 'raised',
        -padx    => 5,
        -pady    => 5,
        -width    => 10,
        -highlightcolor    => 'OrangeRed2',
        -command => sub { $Toplevel->destroy(); },
    );

    $Frame->configure(-relief => 'ridge', -bd => 1);    
    $Frame->pack(-padx => 10, -pady    => 20);
    $BFrame->pack(-padx => 10, -pady => 20);
    $Label->pack(-side => 'top');
    $Tree->pack
    (
        -side   => 'left',
        -ipadx  => 10,
        -ipady  => 30,
        -padx   => 10,
        -pady   => 10,
        -expand => 'yes',
        -fill   => 'both'
    );

    $Ok->pack(-side    => 'left', -padx => 5, -pady =>    5, -fill => 
+'both');
}

sub TreeConfigure
{
    $Tree->configure
    (
        -separator => "/",
        -height       => '20',
        -width       => '55',

        -drawbranch => 'true',
        -indent        => '20',
        -indicator  => 'true',

        -selectborderwidth => '1',
        -selectmode => 'single',
        -bg =>  'white',

        -highlightcolor    => 'black',
        -borderwidth =>    2,
    );
    $Tree->focus();
}

sub Add_Dirs
{
    my $tree = '/home';
    my ($File, $Temp, @Dir_List);
    @Dir_List =
    (
        '/',
        '/one',
        '/one/two',
        '/two',
        '/two/three',
        '/three',
        '/three/four',
        '/three/four/five',
        '/three/four/five/six',
    );

    foreach $File (@Dir_List)
    {
        $Temp = (split('/', $File))[-1];
        $Temp = $File unless defined $Temp;
        $Tree->add($File, -text => "$Temp");
        $Tree->hide(entry=>$File);
    }

    $Tree->show(entry=>$Dir_List[0]);
    $Tree->autosetmode();
}
[download]