From dbc5984dc1360944f4dd15f9d846829fab99f04d Mon Sep 17 00:00:00 2001
From: Leo Prikler <leo.prikler@student.tugraz.at>
Date: Fri, 15 Jan 2021 21:05:43 +0100
Subject: 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.
---
 sdl2/bindings.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'sdl2/bindings.scm')

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 '*))
-- 
cgit v1.2.3