X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fsdl.c;h=4fba1ff41ae828064bf39f64dccbfc75e73cd053;hb=2eee3eb546a25305d548fcb331769be84fd3a38f;hp=c59d607d3733ca7fba88e18c0c54a92eea538a7c;hpb=6db93f044c899a6b7ce0166d9909711f8b414791;p=gacela.git

diff --git a/src/sdl.c b/src/sdl.c
index c59d607..4fba1ff 100644
--- a/src/sdl.c
+++ b/src/sdl.c
@@ -176,6 +176,12 @@ gacela_SDL_WM_SetCaption (SCM title, SCM icon)
   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)
 {
@@ -504,6 +510,7 @@ init_gacela_sdl (void *data)
   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);