From b8aaa96201a6716b7ad5617c0c2987e5def66cb4 Mon Sep 17 00:00:00 2001
From: Leo Prikler <leo.prikler@student.tugraz.at>
Date: Sun, 27 Jun 2021 19:23:20 +0200
Subject: Add support for SDL_SetWindowIcon.

* sdl/bindings.scm (sdl-set-window-icon): New variable.
* sdl/video.scm (set-window-icon!): New variable.
* doc/api.texi (Windows): Document it.
---
 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 7f12b45..ac16481 100644
--- a/sdl2/bindings.scm
+++ b/sdl2/bindings.scm
@@ -206,6 +206,9 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
 (define-foreign sdl-set-window-title
   void "SDL_SetWindowTitle" '(* *))
 
+(define-foreign sdl-set-window-icon
+  void "SDL_SetWindowIcon" (list '* '*))
+
 (define-foreign sdl-set-window-position
   void "SDL_SetWindowPosition" (list '* int int))
 
-- 
cgit v1.2.3