#!/usr/bin/perl -w

use strict;
use Tkx;

my $mw = Tkx::widget->new(".");
my $lb = $mw->new_tk__listbox(-height => 10);
$lb->insert("end", 1..100);
$lb->g_grid(-column => 0, -row => 0);
my $sb = $mw->new_ttk__scrollbar(-orient => 'vertical', -command => [$lb, 'yview']);
$sb->g_grid(-column => 1, -row => 0, -sticky => "ns");
$lb->configure(-yscrollcommand => [$sb, "set"]);

Tkx::MainLoop();