From fa5e7eca92e37289138f78ffff131d7a2cf735ec Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Thu, 3 Apr 2014 15:32:42 +0200 Subject: Add sdl_window:set_bordered/2 --- c_src/esdl2.h | 1 + c_src/sdl_window.c | 27 +++++++++++++++++++++++++++ src/esdl2.erl | 4 ++++ src/sdl_window.erl | 4 ++++ 4 files changed, 36 insertions(+) diff --git a/c_src/esdl2.h b/c_src/esdl2.h index 966f14d..55b9a2b 100644 --- a/c_src/esdl2.h +++ b/c_src/esdl2.h @@ -176,6 +176,7 @@ F(minimize_window, 1) \ F(raise_window, 1) \ F(restore_window, 1) \ + F(set_window_bordered, 2) \ // Generated declarations for the NIF. diff --git a/c_src/sdl_window.c b/c_src/sdl_window.c index 936792b..adaa9eb 100644 --- a/c_src/sdl_window.c +++ b/c_src/sdl_window.c @@ -428,3 +428,30 @@ NIF_FUNCTION(restore_window) return nif_thread_cast(env, thread_restore_window, 1, NIF_RES_GET(Window, window_res)); } + +// set_window_bordered + +NIF_CAST_HANDLER(thread_set_window_bordered) +{ + SDL_SetWindowBordered(args[0], (long)args[1]); +} + +NIF_FUNCTION(set_window_bordered) +{ + void* window_res; + char buf[MAX_ATOM_LENGTH]; + SDL_bool b; + + BADARG_IF(!enif_get_resource(env, argv[0], res_Window, &window_res)); + BADARG_IF(!enif_get_atom(env, argv[1], buf, MAX_ATOM_LENGTH, ERL_NIF_LATIN1)); + + if (!strcmp(buf, "true")) + b = SDL_TRUE; + else { + BADARG_IF(0 != strcmp(buf, "false")); + b = SDL_FALSE; + } + + return nif_thread_cast(env, thread_set_window_bordered, 2, + NIF_RES_GET(Window, window_res), b); +} diff --git a/src/esdl2.erl b/src/esdl2.erl index 6f603cd..581248d 100644 --- a/src/esdl2.erl +++ b/src/esdl2.erl @@ -88,6 +88,7 @@ -export([minimize_window/1]). -export([raise_window/1]). -export([restore_window/1]). +-export([set_window_bordered/2]). %% @todo We probably want to accept an env variable or somthing for the location. -on_load(on_load/0). @@ -281,3 +282,6 @@ raise_window(_) -> restore_window(_) -> erlang:nif_error({not_loaded, ?MODULE}). + +set_window_bordered(_, _) -> + erlang:nif_error({not_loaded, ?MODULE}). diff --git a/src/sdl_window.erl b/src/sdl_window.erl index d597c79..ed9a754 100644 --- a/src/sdl_window.erl +++ b/src/sdl_window.erl @@ -31,6 +31,7 @@ -export([minimize/1]). -export([raise/1]). -export([restore/1]). +-export([set_bordered/2]). create(Title, X, Y, W, H, Flags) -> esdl2:create_window(Title, X, Y, W, H, Flags), @@ -97,3 +98,6 @@ raise(Window) -> restore(Window) -> esdl2:restore_window(Window). + +set_bordered(Window, Bordered) -> + esdl2:set_window_bordered(Window, Bordered). -- cgit v1.2.3