|
#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "ppport.h"
#include <Ecore.h>
#include <Ecore_Input.h>
typedef Ecore_Event_Key EcoreEventKey;
MODULE = pEFL::Ecore::Event::Key PACKAGE = EcoreEventKeyPtr
char *
keyname(event)
EcoreEventKey *event
CODE:
RETVAL = event->keyname;
OUTPUT:
RETVAL
int
modifiers(event)
EcoreEventKey *event
CODE:
RETVAL = event->modifiers;
OUTPUT:
RETVAL
const char *
key(event)
EcoreEventKey *event
CODE:
RETVAL = event->key;
OUTPUT:
RETVAL
const char *
string(event)
EcoreEventKey *event
CODE:
RETVAL = event->string;
OUTPUT:
RETVAL
const char *
compose(event)
EcoreEventKey *event
CODE:
RETVAL = event->compose;
OUTPUT:
RETVAL
unsigned int
timestamp(event)
EcoreEventKey *event
CODE:
RETVAL = event->timestamp;
OUTPUT:
RETVAL
void
window(event)
EcoreEventKey *event
CODE:
printf ( "the window member of the event struct is at the moment not supported in Perl. Sorry :-( \n" );
void
root_window(event)
EcoreEventKey *event
CODE:
printf ( "the root_window member of the event struct is at the moment not supported in Perl. Sorry :-( \n" );
void
event_window(event)
EcoreEventKey *event
CODE:
printf ( "the event_window member of the event struct is at the moment not supported in Perl. Sorry :-( \n" );
int
same_screen(event)
EcoreEventKey *event
CODE:
RETVAL = event->keycode;
OUTPUT:
RETVAL
|