#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::HList;
use Tk::ItemStyle;
use Cwd;

my $mw = MainWindow->new();
$mw->geometry("400x600");

chdir "..";
my $cwd = getcwd;

my $hlist = $mw->HList(-columns=>2,-itemtype   => 'text',
							  -command=>sub{&doppelklick;}
							)->pack(-expand=>1, -fill=>'both');

&neues_verzeichnis($cwd);

MainLoop;

sub doppelklick{
	my $path = join "\n", $hlist->infoSelection();
   my $cwd = getcwd;
   chdir "$cwd/$path";
   $cwd = getcwd;
   print "\n$cwd";
   &neues_verzeichnis($cwd);
}

sub neues_verzeichnis{
	my @inhalt;
	opendir(DIR, $_[0]);
	while (my $tmp = readdir(DIR)) {
		push(@inhalt,$tmp);
	};
	closedir DIR;	
	$hlist->deleteAll;	
	foreach (sort(@inhalt)) {
		$hlist->add("$_", -text=>$_);
	}
}