PerlTk - Tk::MatchEntry bindings with Tk804.027

You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

Author

Tk::MatchEntry bindings with Tk804.027

nicolas //

2005-03-03, 3:57 pm

Hello,

This small code works well with Tk800:
The MatchEntry automatically pops up and when I press up/down keys,
I can move through the listbox.

With the latest version of Tk, those bindings do not work, and pressing those keys simply deletes the entry text.
Clicking with "<1>" in the list makes it vanish and nothing else. I do not know what to do.
Is it worth I redefine bindings for the class or is there another solution?

******
use strict;
use Tk;
use lib "$ENV{HOME}/lib/perl";

my $mw = MainWindow->new();
my $choices = [
"Jean de Lardier",
"Jean, archiprestre",
"Jean",
"Arnoul",
];
my $ba = $mw->MatchEntry(-choices => $choices)->pack;
$ba->focus;

MainLoop();
*******

Thank you in advance

--
nicolas //

Sponsored Links