[perl-win32-gui-users] onKeyUp

[Octavian Rasnita]

Hi,

I have tried the test script below, and if I press enter on the text field,
the onKeyUp event is not handled at all.

If I press other keys, that event appears, but not if I press enter.

onKeyUp is handled, but I also need the onKeyUp event.

Is it a bug, or am I doing something wrong?

Thank you.


Teddy


use strict;
use Win32::GUI;

my $Win = new Win32::GUI::Window(
-name => "Win",
-title => "Maestro EngRom",
-size => [700, 600],
-dialogui => 1,
);

my $WordField = $Win->AddTextfield(
-name => "WordField",
-width => 100,
-height => 20,
-tabstop => 1,
-onKeyDown => \&WordField_KeyDown,
);

$Win->Show();
Win32::GUI::Dialog();

sub WordField_KeyDown {
my ($self, $id, $key) = @_;

Win32::GUI::MessageBox($Win, $key, "test");
}