#!/usr/bin/perl


use Tk;
use Tk::HList;
use Tk::ItemStyle;
use File::Basename;

$FONT_BOLD = "Courier 12 bold";

$mw        = MainWindow->new(-title => $0);
$hlist     = $mw->HList(-selectmode=>"none",
                        -selectbackground=>"Wheat", 
                        -selectborderwidth=>0,
                        -background=>"Wheat",
                        -selectbackground=>"Wheat",
                        -separator=>"/",      
                        -drawbranch=>1, 
                        -indicator=>1,        
                       ) -> pack(qw/-fill both -expand yes/);
$Highlight = $mw->ItemStyle('text', -foreground=>"DarkGreen", -background=>"Wheat", -font=>$FONT_BOLD);

foreach $path("/", "/home", "/home/andrew")
   { $hlist -> add($path, -text=>basename($path), -style=>$Highlight);
   }

MainLoop();