diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/esdl2.erl | 36 | ||||
-rw-r--r-- | src/sdl_window.erl | 64 |
2 files changed, 99 insertions, 1 deletions
diff --git a/src/esdl2.erl b/src/esdl2.erl index defcebc..69885c6 100644 --- a/src/esdl2.erl +++ b/src/esdl2.erl @@ -185,15 +185,19 @@ %% sdl_window -export([create_window/6]). -export([create_window_and_renderer/3]). +-export([get_grabbed_window/0]). +-export([get_window_borders_size/1]). -export([get_window_brightness/1]). -export([get_window_display_index/1]). -export([get_window_display_mode/1]). -export([get_window_flags/1]). -export([get_window_from_id/1]). +-export([get_window_gamma_ramp/1]). -export([get_window_grab/1]). -export([get_window_id/1]). -export([get_window_maximum_size/1]). -export([get_window_minimum_size/1]). +-export([get_window_opacity/1]). -export([get_window_pixel_format/1]). -export([get_window_position/1]). -export([get_window_size/1]). @@ -207,11 +211,16 @@ -export([set_window_brightness/2]). -export([set_window_display_mode/2]). -export([set_window_fullscreen/2]). +-export([set_window_gamma_ramp/4]). -export([set_window_grab/2]). -export([set_window_icon/2]). +-export([set_window_input_focus/1]). -export([set_window_maximum_size/3]). -export([set_window_minimum_size/3]). +-export([set_window_modal_for/2]). +-export([set_window_opacity/2]). -export([set_window_position/3]). +-export([set_window_resizable/2]). -export([set_window_size/3]). -export([set_window_title/2]). -export([show_window/1]). @@ -664,6 +673,12 @@ create_window(_, _, _, _, _, _) -> create_window_and_renderer(_, _, _) -> erlang:nif_error({not_loaded, ?MODULE}). +get_grabbed_window() -> + erlang:nif_error({not_loaded, ?MODULE}). + +get_window_borders_size(_) -> + erlang:nif_error({not_loaded, ?MODULE}). + get_window_brightness(_) -> erlang:nif_error({not_loaded, ?MODULE}). @@ -679,6 +694,9 @@ get_window_flags(_) -> get_window_from_id(_) -> erlang:nif_error({not_loaded, ?MODULE}). +get_window_gamma_ramp(_) -> + erlang:nif_error({not_loaded, ?MODULE}). + get_window_grab(_) -> erlang:nif_error({not_loaded, ?MODULE}). @@ -691,6 +709,9 @@ get_window_maximum_size(_) -> get_window_minimum_size(_) -> erlang:nif_error({not_loaded, ?MODULE}). +get_window_opacity(_) -> + erlang:nif_error({not_loaded, ?MODULE}). + get_window_pixel_format(_) -> erlang:nif_error({not_loaded, ?MODULE}). @@ -730,21 +751,36 @@ set_window_display_mode(_, _) -> set_window_fullscreen(_, _) -> erlang:nif_error({not_loaded, ?MODULE}). +set_window_gamma_ramp(_, _, _, _) -> + erlang:nif_error({not_loaded, ?MODULE}). + set_window_grab(_, _) -> erlang:nif_error({not_loaded, ?MODULE}). set_window_icon(_, _) -> erlang:nif_error({not_loaded, ?MODULE}). +set_window_input_focus(_) -> + erlang:nif_error({not_loaded, ?MODULE}). + set_window_maximum_size(_, _, _) -> erlang:nif_error({not_loaded, ?MODULE}). set_window_minimum_size(_, _, _) -> erlang:nif_error({not_loaded, ?MODULE}). +set_window_modal_for(_, _) -> + erlang:nif_error({not_loaded, ?MODULE}). + +set_window_opacity(_, _) -> + erlang:nif_error({not_loaded, ?MODULE}). + set_window_position(_, _, _) -> erlang:nif_error({not_loaded, ?MODULE}). +set_window_resizable(_, _) -> + erlang:nif_error({not_loaded, ?MODULE}). + set_window_size(_, _, _) -> erlang:nif_error({not_loaded, ?MODULE}). diff --git a/src/sdl_window.erl b/src/sdl_window.erl index ce74fce..802e20c 100644 --- a/src/sdl_window.erl +++ b/src/sdl_window.erl @@ -16,14 +16,19 @@ -export([create/6]). -export([create_window_and_renderer/3]). +-export([focus_input/1]). +-export([get_borders_size/1]). -export([get_brightness/1]). -export([get_display_index/1]). -export([get_display_mode/1]). -export([get_flags/1]). -export([get_from_id/1]). +-export([get_gamma_ramp/1]). +-export([get_grabbed_window/0]). -export([get_id/1]). -export([get_max_size/1]). -export([get_min_size/1]). +-export([get_opacity/1]). -export([get_pixel_format/1]). -export([get_pos/1]). -export([get_size/1]). @@ -39,10 +44,14 @@ -export([set_brightness/2]). -export([set_display_mode/2]). -export([set_fullscreen/2]). +-export([set_gamma_ramp/4]). -export([set_icon/2]). -export([set_max_size/3]). -export([set_min_size/3]). +-export([set_modal/2]). +-export([set_opacity/2]). -export([set_pos/3]). +-export([set_resizable/2]). -export([set_size/3]). -export([set_title/2]). -export([show/1]). @@ -62,6 +71,9 @@ | focus_gained | focus_lost | close | take_focus | hit_test. -export_type([window_event_type/0]). +%% It must be a list of 256 elements. +-type gamma_ramp() :: [0..65535]. + -spec create(string(), window_pos(), window_pos(), integer(), integer(), [window_flag()]) -> {ok, window()} | sdl:error(). create(Title, X, Y, W, H, Flags) -> @@ -74,6 +86,18 @@ create_window_and_renderer(W, H, Flags) -> esdl2:create_window_and_renderer(W, H, Flags), receive {'_nif_thread_ret_', Ret} -> Ret end. +-spec focus_input(window()) -> ok | sdl:error(). +focus_input(Window) -> + esdl2:set_window_input_focus(Window), + receive {'_nif_thread_ret_', Ret} -> Ret end. + +-spec get_borders_size(window()) + -> #{top := integer(), left := integer(), bottom := integer(), right := integer()} + | undefined. +get_borders_size(Window) -> + esdl2:get_window_borders_size(Window), + receive {'_nif_thread_ret_', Ret} -> Ret end. + -spec get_brightness(window()) -> float(). get_brightness(Window) -> esdl2:get_window_brightness(Window), @@ -100,11 +124,21 @@ get_flags(Window) -> esdl2:get_window_flags(Window), receive {'_nif_thread_ret_', Ret} -> Ret end. --spec get_from_id(non_neg_integer()) -> window(). +-spec get_from_id(non_neg_integer()) -> window() | undefined. get_from_id(WindowID) -> esdl2:get_window_from_id(WindowID), receive {'_nif_thread_ret_', Ret} -> Ret end. +-spec get_gamma_ramp(window()) -> {gamma_ramp(), gamma_ramp(), gamma_ramp()}. +get_gamma_ramp(Window) -> + esdl2:get_window_gamma_ramp(Window), + receive {'_nif_thread_ret_', Ret} -> Ret end. + +-spec get_grabbed_window() -> window() | undefined. +get_grabbed_window() -> + esdl2:get_grabbed_window(), + receive {'_nif_thread_ret_', Ret} -> Ret end. + -spec get_id(window()) -> non_neg_integer(). get_id(Window) -> esdl2:get_window_id(Window), @@ -120,6 +154,14 @@ get_min_size(Window) -> esdl2:get_window_minimum_size(Window), receive {'_nif_thread_ret_', Ret} -> Ret end. +-spec get_opacity(window()) -> float(). +get_opacity(Window) -> + esdl2:get_window_opacity(Window), + receive {'_nif_thread_ret_', Ret} -> + {ok, Opacity} = Ret, + Opacity + end. + -spec get_pixel_format(window()) -> sdl_pixels:pixel_format(). get_pixel_format(Window) -> esdl2:get_window_pixel_format(Window), @@ -189,6 +231,12 @@ set_fullscreen(Window, Flag) -> esdl2:set_window_fullscreen(Window, Flag), receive {'_nif_thread_ret_', Ret} -> Ret end. +-spec set_gamma_ramp(window(), gamma_ramp(), gamma_ramp(), gamma_ramp()) + -> ok | sdl:error(). +set_gamma_ramp(Window, Red, Green, Blue) -> + esdl2:set_window_gamma_ramp(Window, Red, Green, Blue), + receive {'_nif_thread_ret_', Ret} -> Ret end. + -spec set_icon(window(), sdl_surface:surface()) -> ok. set_icon(Window, Surface) -> esdl2:set_window_icon(Window, Surface), @@ -202,10 +250,24 @@ set_max_size(Window, W, H) -> set_min_size(Window, W, H) -> esdl2:set_window_minimum_size(Window, W, H). +-spec set_modal(window(), window()) -> ok | sdl:error(). +set_modal(ModalWindow, ParentWindow) -> + esdl2:set_window_modal_for(ModalWindow, ParentWindow), + receive {'_nif_thread_ret_', Ret} -> Ret end. + +-spec set_opacity(window(), float()) -> ok | sdl:error(). +set_opacity(Window, Opacity) -> + esdl2:set_window_opacity(Window, Opacity), + receive {'_nif_thread_ret_', Ret} -> Ret end. + -spec set_pos(window(), integer(), integer()) -> ok. set_pos(Window, X, Y) -> esdl2:set_window_position(Window, X, Y). +-spec set_resizable(window(), boolean()) -> ok. +set_resizable(Window, Resizable) -> + esdl2:set_window_resizable(Window, Resizable). + -spec set_size(window(), integer(), integer()) -> ok. set_size(Window, W, H) -> esdl2:set_window_size(Window, W, H). |