diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2016-12-30 11:19:48 -0500 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2016-12-30 15:51:58 -0500 |
| commit | b833f588b3d9528e7fc650d841ee7a46b6c0ba78 (patch) | |
| tree | e0a393cca717153abd6bbe0e59505f1901393469 /sdl2/bindings.scm | |
| parent | 2fb7f399f322122f2d5e5f436673fe386242505e (diff) | |
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 (<text-input-event>): 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.
Diffstat (limited to 'sdl2/bindings.scm')
| -rw-r--r-- | sdl2/bindings.scm | 16 |
1 files changed, 15 insertions, 1 deletions
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 <davet@gnu.org> +;;; Copyright © 2015, 2016 David Thompson <davet@gnu.org> ;;; ;;; This file is part of guile-sdl2. ;;; @@ -817,6 +817,20 @@ RETURN-TYPE and accept arguments of ARG-TYPES." ;;; +;;; 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 ;;; |