EVT_KEY_UP on linux and on windows

[Gabor Szabo]

I have the following code:

EVT_KEY_UP( $self, \&on_key );

sub on_key {
    my ($self, $event) = @_;
    if ($event->GetKeyCode == WXK_F3) {
       print "F3 pressed\n";
    }
    #print $event->GetKeyCode, "\n";
    return;
}

On Linux it works on Windows it does not.

What am I doing wrong ?

Gabor