#!/usr/bin/perl

use strict;
use warnings 'all';

use Tk;
use Tk::GridColumns;

@ARGV == 1 and Tk::GridColumns->set_debuglevel(shift); # set debug level

my $mw = tkinit();

my $gc = new Tk::GridColumns $mw;

$gc -> set_header([
	[ Name => '$a cmp $b' ],
	[ Desc => '$a cmp $b' ],
	[ 'ID' => '$a <=> $b' ],
]);

$gc -> set_data([
	[ 'Name A', 'Eine Beschreibung', 4 ],
	[ 'Name B', 'Eine Beschreibung', 3 ],
	[ 'Name C', 'Eine Beschreibung', 2 ],
	[ 'Name D', 'Eine Beschreibung', 1 ],
]);

$gc -> set_weight( 1, 2 ); # die 2. Spalte wird gestreckt, falls mehr Platz zur Verfuegung steht

$gc -> refresh;

MainLoop;