Ok, here is a minimal example. The effect is about the same. However, in this example the number does not start off correctly at 0. In mine, it begins the grid at the correct position. What is the same, is if you try to scroll to the end of the buttons, it cuts off.

#!/usr/bin/perl -w
# Multiple Widgets with one scrollbar.pl

use Tk;
require Tk::Pane;


$mw = MainWindow->new();
$mw->geometry("1280x720+0+0");
$mw->title("One Scrollbar/Three Listboxes");
$mw->Button(-text => "Exit",
            -command => sub { exit })->pack(-side => 'bottom');
$RowDescriptFrame = $mw->Scrolled('Pane');
$RowDescriptFrame->pack(-fill => 'both');
foreach my $num (0..1000) 
{
    $RowDescriptFrame->Button(-text => "Number: $num\nAgain: $num")->g
+rid(-row => 0, -column => $num, -sticky => "nsew");    
}


MainLoop;
[download]