From 30cd5551c4cdc7a2d9bbc92dfbc0313764d2bdad Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@ninenines.eu>
Date: Fri, 5 Jan 2018 16:32:06 +0100
Subject: Add the remaining keyboard functions

Also adds defines for all the keycode and scancode in SDL 2.0.7.
---
 src/sdl_keyboard.erl | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

(limited to 'src/sdl_keyboard.erl')

diff --git a/src/sdl_keyboard.erl b/src/sdl_keyboard.erl
index 325c727..1e0b68c 100644
--- a/src/sdl_keyboard.erl
+++ b/src/sdl_keyboard.erl
@@ -14,6 +14,7 @@
 
 -module(sdl_keyboard).
 
+-export([get_focused_window/0]).
 -export([get_key_from_name/1]).
 -export([get_key_from_scancode/1]).
 -export([get_key_name/1]).
@@ -21,11 +22,20 @@
 -export([get_scancode_from_key/1]).
 -export([get_scancode_from_name/1]).
 -export([get_scancode_name/1]).
+-export([get_state/0]).
+-export([has_screen_keyboard_support/0]).
+-export([is_screen_keyboard_shown/1]).
 -export([is_text_input_active/0]).
 -export([set_mod_state/1]).
+-export([set_text_input_rect/1]).
 -export([start_text_input/0]).
 -export([stop_text_input/0]).
 
+-spec get_focused_window() -> sdl_window:window() | undefined.
+get_focused_window() ->
+	esdl2:get_keyboard_focus(),
+	receive {'_nif_thread_ret_', Ret} -> Ret end.
+
 -spec get_key_from_name(binary()) -> non_neg_integer() | undefined.
 get_key_from_name(Name) ->
 	esdl2:get_key_from_name(Name).
@@ -56,6 +66,21 @@ get_scancode_from_name(Name) ->
 get_scancode_name(Scancode) ->
 	esdl2:get_scancode_name(Scancode).
 
+-spec get_state() -> #{non_neg_integer() => boolean()}.
+get_state() ->
+	esdl2:get_keyboard_state(),
+	receive {'_nif_thread_ret_', Ret} -> Ret end.
+
+-spec has_screen_keyboard_support() -> boolean().
+has_screen_keyboard_support() ->
+	esdl2:has_screen_keyboard_support(),
+	receive {'_nif_thread_ret_', Ret} -> Ret end.
+
+-spec is_screen_keyboard_shown(sdl_window:window()) -> boolean().
+is_screen_keyboard_shown(Window) ->
+	esdl2:is_screen_keyboard_shown(Window),
+	receive {'_nif_thread_ret_', Ret} -> Ret end.
+
 -spec is_text_input_active() -> boolean().
 is_text_input_active() ->
 	esdl2:is_text_input_active(),
@@ -65,6 +90,10 @@ is_text_input_active() ->
 set_mod_state(Mod) ->
 	esdl2:set_mod_state(Mod).
 
+-spec set_text_input_rect(sdl_rect:rect()) -> ok.
+set_text_input_rect(Rect) ->
+	esdl2:set_text_input_rect(Rect).
+
 -spec start_text_input() -> ok.
 start_text_input() ->
 	esdl2:start_text_input().
-- 
cgit v1.2.3