diff options
| author | Leo Prikler <leo.prikler@student.tugraz.at> | 2020-12-01 16:46:47 +0100 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2020-12-02 10:04:58 -0500 |
| commit | 6c28e028509722c27078966a2c94ddb9d0090ca7 (patch) | |
| tree | 9356ce73145075a816ea3c5d2515c38287e140b3 /sdl2/bindings.scm | |
| parent | 0e627ad72df828882664b87293f9fec3602c5ceb (diff) | |
video: Add more bindings.
* sdl2/bindings.scm (sdl-window-get-minimum-size)
(sdl-window-get-maximum-size, sdl-window-set-minimum-size)
(sdl-window-set-maximum-size, sdl-window-set-resizable):
New procedures.
* sdl2/video.scm (window-minimum-size, window-maximum-size)
(set-window-minimum-size!, set-window-maximum-size!)
(set-window-resizable!): New procedures.
* doc/api.texi: Document new (sdl2 video) bindings.
Diffstat (limited to 'sdl2/bindings.scm')
| -rw-r--r-- | sdl2/bindings.scm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm index 586011e..aea12c9 100644 --- a/sdl2/bindings.scm +++ b/sdl2/bindings.scm @@ -167,6 +167,12 @@ RETURN-TYPE and accept arguments of ARG-TYPES." (define-foreign sdl-get-window-size void "SDL_GetWindowSize" '(* * *)) +(define-foreign sdl-get-window-minimum-size + void "SDL_GetWindowMinimumSize" '(* * *)) + +(define-foreign sdl-get-window-maximum-size + void "SDL_GetWindowMaximumSize" '(* * *)) + (define-foreign sdl-get-window-position void "SDL_GetWindowPosition" '(* * *)) @@ -206,6 +212,15 @@ 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-minimum-size + void "SDL_SetWindowMinimumSize" (list '* int int)) + +(define-foreign sdl-set-window-maximum-size + void "SDL_SetWindowMaximumSize" (list '* int int)) + +(define-foreign sdl-set-window-resizable + void "SDL_SetWindowResizable" (list '* sdl-bool)) + (define-foreign sdl-set-window-fullscreen int "SDL_SetWindowFullscreen" (list '* uint32)) |