diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2017-11-10 14:37:37 -0500 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2017-11-10 14:37:37 -0500 |
| commit | d57967f1f614a4426d2323a14c6dcd5c37ee1aa3 (patch) | |
| tree | 94ef9b03111eee6e15abc02f148cb7a20b513069 /sdl2/bindings.scm | |
| parent | c42c8a8589dff430c07684fb0044295a953cdd4c (diff) | |
Add clipboard bindings.
* sdl2/bindings.scm (sdl-get-clipboard-text, sdl-set-clipboard-text,
sdl-has-clipboard-text): New procedures.
* sdl2/clipboard.scm: New file.
* Makefile.am (SOURCES): Add it.
Diffstat (limited to 'sdl2/bindings.scm')
| -rw-r--r-- | sdl2/bindings.scm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm index 180f887..4644f1e 100644 --- a/sdl2/bindings.scm +++ b/sdl2/bindings.scm @@ -1130,3 +1130,17 @@ RETURN-TYPE and accept arguments of ARG-TYPES." (define-foreign sdl-is-game-controller sdl-bool "SDL_IsGameController" (list int)) + + +;;; +;;; Clipboard +;;; + +(define-foreign sdl-get-clipboard-text + '* "SDL_GetClipboardText" '()) + +(define-foreign sdl-set-clipboard-text + int "SDL_SetClipboardText" '(*)) + +(define-foreign sdl-has-clipboard-text + int "SDL_HasClipboardText" '()) |