use warnings; use strict; use Tk; my %w; $w{mw} = MainWindow->new; $w{lb} = $w{mw}->Scrolled( qw/MListbox -selectmode single -scrollbars oe -font small / )->pack(-expand => 1, -fill => 'both'); for my $x (qw//) { #for my $x (qw// || 'oops') { #for my $x (qw/a b c/) { $w{lb}->columnInsert('end', -text => $x ) ; } for (1 .. 10){ my @row = ($_, $_, $_,); $w{lb}->insert('end', \@row); $w{lb}->see('end'); $w{lb}->update; } MainLoop;