Select Code to Download

use warnings;
use strict;
use Tk;

package Tk::MyScrollableEdit;

use Data::Dumper;
our @ISA = ('Tk::Frame');
...
    my $last  = ($offset + $rows) / @$data ;
    $sb->set($first, $last);
}

package main;

...
          -fill => 'y');

MainLoop;