#!/usr/bin/perl

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

my $mw = MainWindow->new( -title => 'Tree', 
	                  -width => 800, 
			  -height=> 600);

my $tree = $mw->Tree(
	font         	=> 'Courier 14', 
	wideselection	=> 0,
	background		=> 'white',
	selectbackground => 'grey'
)->place(
	-x      => 0, 
	-y      => 0, 
	-width  => 10000,
	-height => 1000
);

# Zeilen in Verzeichnisbaum einfügen
$tree->add('1000', -text => '1000',);
$tree->add('1000.1500', -text => '1500',);
$tree->add('1000.1500.1550', -text => '1550',);
$tree->add('1000.1500.1550-1', -text => '1550',);

# Weichen stellen
$tree->autosetmode();
#Ast schließen
#$tree->close("1");

# do create window
MainLoop;