Tk::Tree - aufklappbare und zuklappbare Bäume

Tk::Tree ist ein Widget zur Darstellung von Bäumen. Die Knoten können auf- und zugeklappt werden.


Perl-Quellcode

#!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,
);

$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',);

$tree->autosetmode();

$mw->MainLoop();
Top