diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/esdl2.erl | 16 | ||||
-rw-r--r-- | src/sdl_keyboard.erl | 32 |
2 files changed, 48 insertions, 0 deletions
diff --git a/src/esdl2.erl b/src/esdl2.erl index 6ffc331..3e0db38 100644 --- a/src/esdl2.erl +++ b/src/esdl2.erl @@ -53,6 +53,11 @@ -export([gl_create_context/1]). -export([gl_swap_window/1]). +%% sdl_keyboard +-export([is_text_input_active/0]). +-export([start_text_input/0]). +-export([stop_text_input/0]). + %% sdl_power -export([get_power_info/0]). @@ -237,6 +242,17 @@ gl_create_context(_) -> gl_swap_window(_) -> erlang:nif_error({not_loaded, ?MODULE}). +%% sdl_keyboard + +is_text_input_active() -> + erlang:nif_error({not_loaded, ?MODULE}). + +start_text_input() -> + erlang:nif_error({not_loaded, ?MODULE}). + +stop_text_input() -> + erlang:nif_error({not_loaded, ?MODULE}). + %% sdl_power get_power_info() -> diff --git a/src/sdl_keyboard.erl b/src/sdl_keyboard.erl new file mode 100644 index 0000000..462f48b --- /dev/null +++ b/src/sdl_keyboard.erl @@ -0,0 +1,32 @@ +%% Copyright (c) 2015, Loïc Hoguin <[email protected]> +%% +%% Permission to use, copy, modify, and/or distribute this software for any +%% purpose with or without fee is hereby granted, provided that the above +%% copyright notice and this permission notice appear in all copies. +%% +%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES +%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF +%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR +%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES +%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN +%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF +%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. + +-module(sdl_keyboard). + +-export([is_text_input_active/0]). +-export([start_text_input/0]). +-export([stop_text_input/0]). + +-spec is_text_input_active() -> boolean(). +is_text_input_active() -> + esdl2:is_text_input_active(), + receive {'_nif_thread_ret_', Ret} -> Ret end. + +-spec start_text_input() -> ok. +start_text_input() -> + esdl2:start_text_input(). + +-spec stop_text_input() -> ok. +stop_text_input() -> + esdl2:stop_text_input(). |