#!/usr/bin/perl -w

use strict;
use Tkx;
use Tkx::Scrolled;

my $mw = Tkx::widget->new(".");
my $lb = $mw->new_tkx_Scrolled("listbox", -scrollbars => "e", -height => 10);
$lb->insert("end", 1..100);
$lb->g_grid(-column => 0, -row => 0);

Tkx::MainLoop();