use strict;
use Tcl::Tk;

my $int = new Tcl::Tk;
my $mw = $int->mainwindow;

# the tablelist widget is described at
# http://docs.activestate.com/activetcl/8.5/tablelist/tablelistWidget.html

$int->pkg_require('tablelist');
$int->Eval('namespace import tablelist::*');

my $w_t = $mw->Scrolled('tablelist',-columns =>[0, "First Column", 0, "Another column"],
         -stretch =>'all', -background =>'white')->pack(-fill=>'both', -expand=>1, -side=>'top');

$w_t->columnconfigure(0, -editable=>1);
$w_t->columnconfigure(1, -editable=>1);

$w_t->insert('end', ["row $_;", "$_ bla bla"]) for 'a'..'zzz';

$int->MainLoop;