#!/usr/bin/perl
use strict;
use warnings;

# Module einbinden
use Tk;
use Tk::Tree;
use utf8;

# Fenster erstellen
my $mw = MainWindow -> new;

# Hilfetext
my $text = 'Doppelklick oder <Enter> auf Zeile';
$mw -> Label (-textvariable => \$text) -> pack (-side => 'top');

# Verzeichnisbaum erstellen
my $tree = $mw -> Tree (-command => sub {$text = shift}, -width => 30, -height => 20) -> pack (-anchor => 'nw');

# Zeilen in Verzeichnisbaum einfügen
foreach(qw (a b b.eins b.zwei b.drei b.drei.alfa b.drei.beta b.drei.beta.rot b.drei.beta.blau b.drei.beta.grün b.drei.gamma b.vier c d))
	{
	my @t = split (/\./, $_);
	$tree->add($_, -text => $t[-1]);
	}

# Weichen stellen
$tree->autosetmode();

# Beenden-Button
$mw -> Button (-text => 'Beenden', -command => sub {exit}) -> pack ();

# Fenstererstellung ausführen
MainLoop;