From b833f588b3d9528e7fc650d841ee7a46b6c0ba78 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Fri, 30 Dec 2016 11:19:48 -0500 Subject: Add bindings for text input event handling. * sdl2/bindings.scm (sdl-start-text-input, sdl-stop-text-input, sdl-is-text-input-active): New procedures. * sdl2/events.scm (): New record type. (make-text-input-event, text-input-event?, text-input-event-timestamp, text-input-event-window-id, text-input-event-text, parse-text-input-event): New procedures. * sdl2/input/text.scm: New file. * Makefile.am (SOURCES): Add it. --- sdl2/bindings.scm | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'sdl2/bindings.scm') diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm index e3167a0..e48ce64 100644 --- a/sdl2/bindings.scm +++ b/sdl2/bindings.scm @@ -1,5 +1,5 @@ ;;; guile-sdl2 --- FFI bindings for SDL2 -;;; Copyright © 2015 David Thompson +;;; Copyright © 2015, 2016 David Thompson ;;; ;;; This file is part of guile-sdl2. ;;; @@ -815,6 +815,20 @@ RETURN-TYPE and accept arguments of ARG-TYPES." (define-public SDLK_EJECT (scancode->keycode SDL_SCANCODE_EJECT)) (define-public SDLK_SLEEP (scancode->keycode SDL_SCANCODE_SLEEP)) + +;;; +;;; Text Input +;;; + +(define-foreign sdl-start-text-input + void "SDL_StartTextInput" '()) + +(define-foreign sdl-stop-text-input + void "SDL_StopTextInput" '()) + +(define-foreign sdl-is-text-input-active + sdl-bool "SDL_IsTextInputActive" '()) + ;;; ;;; Mouse -- cgit v1.2.3