#!/usr/bin/env perl

use strict;
use warnings;

use Tk;

my $mw = MainWindow::->new();

my $scrl_lbox = $mw->Scrolled('Listbox',
    -scrollbars => 'e',
    -selectmode => 'single',
    -height => 3,
)->pack();
my $lbox = $scrl_lbox->Subwidget('scrolled');

$lbox->bind('<ButtonPress-1>',
    sub { print "Event: <ButtonPress-1>\n"; }
);

$lbox->insert(end => 'a' .. 'f');

$mw->Button(-text => 'Test',
    -command => sub {
        $lbox->eventGenerate('<ButtonPress-1>');
    }
)->pack();

MainLoop;