#!./perl
BEGIN { push(@INC, qw(../../../lib ../../lib ../lib lib)) }
use Tk;

{
    package ScrolledListbox;

    import Tk "tkpack";
    @ISA = (Listbox, Scrollbar);
    sub new {
	my($path) = shift;
	my($f) = Frame::new($path);
	my($l) = Listbox::new($f, @_);
	my($s) = Scrollbar::new($f, "-orient" => "vertical",
				"-slave" => $l, "-method" => "yview");
	$l->configure("-yscrollslave" => $s, "-yscrollmethod" => "set");
        tkpack($s, $l, "-side" => "left", "-fill" => "y", "-expand" => "y");
	bless {Scrollbar => $s, Listbox => $l, Default => $f};
    }
}

$top = tkinit;
$sl = ScrolledListbox::new($top);
foreach (1 .. 25) {
    $sl->insert("end", "item" . $_);
}
tkpack $sl;
tkmainloop;