From 4b2c190732b9022e7546c5d2724a82905b6555ee Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 8 Jan 2019 21:29:58 -0500
Subject: surface: Add SDL_FillRect binding.

* sdl2/bindings.scm (sdl-fill-rect): New procedure.
* sdl2/surface.scm (fill-rect): New procedure.
* doc/api.texi (Surfaces): 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 1f97186..c314a23 100644
--- a/sdl2/bindings.scm
+++ b/sdl2/bindings.scm
@@ -949,6 +949,9 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
 (define-foreign sdl-blit-scaled
   int "SDL_UpperBlitScaled" '(* * * *))
 
+(define-foreign sdl-fill-rect
+  int "SDL_FillRect" (list '* '* uint32))
+
 
 ;;;
 ;;; Audio
-- 
cgit v1.2.3