from C to perl

["Sergio Rua" <srua debian org>]

Hello,

    Can anybody help me to translate this function from C to GtkPerl?


void motion_notify_get_coords(GdkEventMotion * event)
{
    XEvent ev;
    XSync(GDK_DISPLAY(), 0);
    
    while (XCheckTypedEvent(GDK_DISPLAY(), MotionNotify, &ev))
    {
        event->x = ev.xmotion.x;
        event->y = ev.xmotion.y;
    }
}


    Thank you!


Un Saludo,
                   Sergio Rua <srua esware com>
                   Departamento de Desarrollo.
                   http://comunidad.esware.com