sub scrollListboxes
{
    my ($scrollbar, $scrolled, $raListboxes, @args) = @_;
    $scrollbar->set(@args);
    my ($top, $bottom) = $scrolled->yview();
    foreach my $listbox ( @$raListboxes )
    {
        $listbox->yviewMoveto($top);
    }
}