OPTION GUI TRUE
PRAGMA GUI gtk3

FUNCTION Define_Window

    LOCAL (*max)() = gtk_window_maximize TYPE void
    LOCAL id

    id = GUIDEFINE("{ type=WINDOW name=window }")
    CALL GUIFN(id, "window", max)
    RETURN id

ENDFUNCTION

SUB Print_Dimensions

    LOCAL (*size)() = gtk_window_get_size TYPE void
    LOCAL x, y

    CALL GUIFN(gui, "window", size, &x, &y)
    PRINT x, "-", y
    END

ENDSUB

gui = Define_Window()
ALARM Print_Dimensions, 500
event$ = GUIEVENT$(gui)