use strict;
use warnings;

use Tk;
use Tk::Adjuster;

my $t = MainWindow->new;

my $f = $t->Frame(-background=>'green')->
	pack(-expand=>1, -fill=>'both');

my $w1 = $f->Listbox(-background=>'blue')->
	pack(-fill=>'both', -expand=>1, -anchor=>'n');

my $w2 = $f->Listbox(-background=>'yellow', -height=>3)->
	pack(-side=>'bottom', -fill=>'both', -expand=>1, -anchor=>'n');

my $adj1 = $f->Adjuster();
$adj1->packAfter($w2, -side=>'bottom');

MainLoop;