return SCM_UNSPECIFIED;
}
+SCM
+gacela_SDL_WM_ToggleFullScreen(SCM surface)
+{
+ return scm_from_int (SDL_WM_ToggleFullScreen (get_surface_address (surface)));
+}
+
SCM
gacela_SDL_Flip (SCM screen)
{
scm_c_define_gsubr ("SDL_SetVideoMode", 4, 0, 0, gacela_SDL_SetVideoMode);
scm_c_define_gsubr ("SDL_FreeSurface", 1, 0, 0, gacela_SDL_FreeSurface);
scm_c_define_gsubr ("SDL_WM_SetCaption", 2, 0, 0, gacela_SDL_WM_SetCaption);
+ scm_c_define_gsubr ("SDL_WM_ToggleFullScreen", 1, 0, 0, gacela_SDL_WM_ToggleFullScreen);
scm_c_define_gsubr ("SDL_Flip", 1, 0, 0, gacela_SDL_Flip);
scm_c_define_gsubr ("SDL_Delay", 1, 0, 0, gacela_SDL_Delay);
scm_c_define_gsubr ("SDL_GetTicks", 0, 0, 0, gacela_SDL_GetTicks);