39 lines
1.1 KiB
Perl
39 lines
1.1 KiB
Perl
|
#!/usr/local/bin/perl -w
|
||
|
|
use Tk;
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
my $mw = MainWindow->new();
|
||
|
|
$mw->title("This is the title");
|
||
|
|
$mw->Button(-text => "Exit",
|
||
|
|
-command => sub { exit })->pack(-side => 'bottom');
|
||
|
|
|
||
|
|
my $scroll = $mw->Scrollbar();
|
||
|
|
my $listboxes = [ $mw->Listbox(), $mw->Listbox(), $mw->Listbox() ];
|
||
|
|
|
||
|
|
sub scroll_listboxes {
|
||
|
|
my ($sb, $scrolled, $lbs, @args) = @_;
|
||
|
|
$sb->set(@args); # tell the Scrollbar what to display
|
||
|
|
my ($top, $bottom) = $scrolled->yview();
|
||
|
|
foreach my $list (@$lbs) {
|
||
|
|
$list->yviewMoveto($top); # adjust each lb
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
foreach my $list (@$listboxes) {
|
||
|
|
$list->configure(-yscrollcommand => [ \&scroll_listboxes, $scroll,
|
||
|
|
$list, $listboxes ]);
|
||
|
|
}
|
||
|
|
|
||
|
|
$scroll->configure(-command => sub {
|
||
|
|
foreach my $list (@$listboxes) {
|
||
|
|
$list->yview(@_);
|
||
|
|
}});
|
||
|
|
|
||
|
|
$scroll->pack(-side => 'left', -fill => 'y');
|
||
|
|
foreach my $list (@$listboxes) {
|
||
|
|
$list->pack(-side => 'left');
|
||
|
|
$list->insert('end', qw/one two three four five six seven eight nine ten eleven twelve thirteen/);
|
||
|
|
}
|
||
|
|
|
||
|
|
MainLoop;
|