Subject: | Tk::Listbox does not respond to keyboard |
Distribution: RedHat 9
Perl Version : v5.8.0 built for i686-linux
uname -a: Linux pmpc828 2.4.20-8smp #1 SMP Thu Mar 13 17:45:54 EST 2003 i686 i686 i386 GNU/Linux
See attached file for a test case. The listbox does not respond to any of the default keyboard bindings.
I have run a test which binds '<Any-KeyPress>' to a perl callback which outputs the key pressed. It appears that the listbox doesnt receive any keyboard events at all.
use Tk;
$wnd = MainWindow->new;
$lst = $wnd->Scrolled('Listbox');
for(1..1000) {
$lst->insert('end', $_);
}
$lst->pack;
$wnd->update;
MainLoop;