#!/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,
							  -command=>\&neues_verzeichnis($cwd)		# die Zeile wird noch so angepasst, dass das neue Verzeichnis übergeben wird
							)->pack(-expand=>1, -fill=>'both');

my $red  = $hlist->ItemStyle('text', -foreground=>'#800000');

&neues_verzeichnis($cwd,$hlist);

Tk::MainLoop;

sub neues_verzeichnis{
	my @inhalt;
	my $e;
	opendir(DIR, $_[0]);
	while (my $tmp = readdir(DIR)) {
		push(@inhalt,$tmp);
	};
	$hlist->deleteAll;	
	foreach (sort(@inhalt)) {
	    $e = $hlist->addchild("");
	    $hlist->itemCreate($e, 0, -itemtype=>'text',
	             -text=>$_, -style=>$red );
	}
}