#!/usr/bin/env perl 
use strict;
use warnings;
use Tickit;
use Tickit::Widget::Table;
use Tickit::Widget::ScrollBox;

my $tickit = Tickit->new;
my $scroll = Tickit::Widget::ScrollBox->new(
	vertical => 1,
	horizontal => 0,
	child => my $tbl = Tickit::Widget::Table->new(
		padding => 1,
		columns => [
			{ label => 'Left column', align => 'left', width => 'auto' },
			{ label => 'Middle column', align => 'centre', width => 'auto' },
			{ label => 'Right column', align => 'right', width => 'auto' },
		],
	)
);
$tbl->add_row(data => [
	"Row $_",
	int(100 * rand),
	"Longer text would be here",
]) for 1..50;
$tickit->set_root_widget($scroll);
$tickit->run;