Add most remaining window functions

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).