Select Code to Download

$widget->configure(-height=>X,
                   -width=>Y);

#Create a scrolled listbox
$list->configure(-height=>12,
...
$list->configure(-height=>12,
                 -width =>100);
$list->pack();

sub initList
{
...
    
    return;
}

sub listData
{
...
    
    return;
}