diff options
| author | Leo Prikler <leo.prikler@student.tugraz.at> | 2021-01-15 21:05:43 +0100 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2021-01-16 19:40:46 -0500 |
| commit | dbc5984dc1360944f4dd15f9d846829fab99f04d (patch) | |
| tree | 026a5c23ce56c2308ad963356bae8b29fcec5d3d /sdl2/bindings.scm | |
| parent | 5b965d180a1f536affd51ffc2b51d5e90fbc362d (diff) | |
Add support for hints.
* sdl2/bindings.scm (SDL_HINT_DEFAULT, SDL_HINT_NORMAL, SDL_HINT_OVERRIDE)
(sdl-set-hint-with-priority, sdl-get-hint): New variables.
* sdl2/hints.scm: New file.
* doc/api.texi: Add Hints.
Diffstat (limited to 'sdl2/bindings.scm')
| -rw-r--r-- | sdl2/bindings.scm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm index a9fa17c..c46af8b 100644 --- a/sdl2/bindings.scm +++ b/sdl2/bindings.scm @@ -1301,3 +1301,17 @@ RETURN-TYPE and accept arguments of ARG-TYPES." (define-foreign sdl-has-clipboard-text int "SDL_HasClipboardText" '()) + +;;; +;;; Hints +;;; + +(define-public SDL_HINT_DEFAULT 0) +(define-public SDL_HINT_NORMAL 1) +(define-public SDL_HINT_OVERRIDE 2) + +(define-foreign sdl-set-hint-with-priority + sdl-bool "SDL_SetHintWithPriority" (list '* '* int)) + +(define-foreign sdl-get-hint + '* "SDL_GetHint" (list '*)) |