package main;

my $mw = tkinit;

my @data;

for (1..10000){
    push @data, {label=> "entry $_", value => "value $_"};
}

my $f = $mw->Frame()->pack(-expand => 1,-fill => 'both');
my $e_f = $f->MyScrollableEdit(
                               -data => \@data
                           )->pack(
                            -fill => 'both',
                            -side => 'left',
                            -expand => 1,
                            );
my $sb;
$sb = $f->Scrollbar( -jump => 0 );
$sb->configure(-command => [$e_f, 'yview', $sb]);
$sb->pack(-side => 'left',
          -fill => 'y');

MainLoop;