From 65c8e4d0b0ec62f6d9bc4ea5618535ed13b2101b Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 9 Jan 2016 08:47:39 -0500 Subject: video: Add SDL_SetWindowFullscreen binding. * sdl2/bindings.scm (sdl-set-window-fullscreen): New procedure. * sdl2/video.scm (set-window-fullscreen!): New procedure. --- sdl2/bindings.scm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'sdl2/bindings.scm') diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm index b6f9431..e394586 100644 --- a/sdl2/bindings.scm +++ b/sdl2/bindings.scm @@ -165,6 +165,9 @@ RETURN-TYPE and accept arguments of ARG-TYPES." (define-foreign sdl-set-window-size void "SDL_SetWindowSize" (list '* int int)) +(define-foreign sdl-set-window-fullscreen + int "SDL_SetWindowFullscreen" (list '* uint32)) + (define-foreign sdl-gl-create-context '* "SDL_GL_CreateContext" '(*)) -- cgit v1.2.3