key_press event

[Mickaël Villers <mvillers apkala com>]

Hello all,
I want to wrap the enter key on my Gtk::Entry,
I use this callback to do this and it works:

sub envoi_msg                                                       
{                                                                   
        shift;                                                      
        my $self = shift;                                           
        my (@event) = @_;                                           
        my $event = pop( @event );                                  
        if( (defined($event->{'type'})) and ( $event->{'type'} eq 'key_press'))      
        {
                print   "test-".$event->{'keyval'}."-\n";                 
        }   
...

It show me the good key code, but I don't find how to have human
readable constant for the keycode, like GDK_KP_Enter!

Attachment: pgpXuP9uBtgZv.pgp
Description: PGP signature