clsparseStatus
clsparseGetEvent( clsparseControl control, cl_event *event )
{
    if( control == NULL )
    {
        return clsparseInvalidControlObject;
    }

    //keeps the event valid on the user side
    ::clRetainEvent( control->event( ) );

    *event = control->event( );

    return clsparseSuccess;

}