obnc input focus issue

Gfx.c

#include <obnc/OBNC.h>
#include ".obnc/Gfx.h"
#include <stdbool.h>
#include "SDL.h"

SDL_Surface *screen;
SDL_Event event;

void Gfx_Do_(void) {
    SDL_Init(SDL_INIT_VIDEO);

    screen = SDL_SetVideoMode(640, 480, 16, SDL_SWSURFACE);

    SDL_WM_SetCaption("Simple Window", "Simple Window");

    bool done=false;

    while(!done) {
        while(SDL_PollEvent(&event)) {
            if (event.type == SDL_QUIT) {
                done=true;
            }
        }

        SDL_FillRect(screen, &screen->clip_rect, SDL_MapRGB(screen->format, 0, 0, 0));

        SDL_Flip(screen);
    }

    SDL_Quit();
}

void Gfx_Init(void) {
}

Gfx.env

CC=gcc
CFLAGS="-I/usr/local/include/SDL -D_GNU_SOURCE=1 -D_THREAD_SAFE"
LDLIBS="-L/usr/local/lib -lSDLmain -lSDL -Wl,-framework,Cocoa"

Gfx.obn

MODULE Gfx;

PROCEDURE Do*;
END Do;

END Gfx.

gfxtest.obn

MODULE gfxtest;

IMPORT Gfx;

BEGIN
  Gfx.Do
END gfxtest.