From a1afe564f1b5a3e8b91e3f706fbd5d7d66a9978c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Thu, 3 Apr 2014 19:50:59 +0200 Subject: Add sdl_window:set_pos/3 --- src/esdl2.erl | 4 ++++ src/sdl_window.erl | 4 ++++ 2 files changed, 8 insertions(+) (limited to 'src') diff --git a/src/esdl2.erl b/src/esdl2.erl index 8067c5f..c1e7651 100644 --- a/src/esdl2.erl +++ b/src/esdl2.erl @@ -95,6 +95,7 @@ -export([set_window_icon/2]). -export([set_window_maximum_size/3]). -export([set_window_minimum_size/3]). +-export([set_window_position/3]). %% @todo We probably want to accept an env variable or somthing for the location. -on_load(on_load/0). @@ -309,3 +310,6 @@ set_window_maximum_size(_, _, _) -> set_window_minimum_size(_, _, _) -> erlang:nif_error({not_loaded, ?MODULE}). + +set_window_position(_, _, _) -> + erlang:nif_error({not_loaded, ?MODULE}). diff --git a/src/sdl_window.erl b/src/sdl_window.erl index f3bdcf7..80e5376 100644 --- a/src/sdl_window.erl +++ b/src/sdl_window.erl @@ -38,6 +38,7 @@ -export([set_icon/2]). -export([set_max_size/3]). -export([set_min_size/3]). +-export([set_pos/3]). create(Title, X, Y, W, H, Flags) -> esdl2:create_window(Title, X, Y, W, H, Flags), @@ -128,3 +129,6 @@ set_max_size(Window, W, H) -> set_min_size(Window, W, H) -> esdl2:set_window_minimum_size(Window, W, H). + +set_pos(Window, X, Y) -> + esdl2:set_window_position(Window, X, Y). -- cgit v1.2.3