From 0f31316fc0e67d9f00638b913ac91d3009c47e94 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@ninenines.eu>
Date: Thu, 3 Apr 2014 20:10:18 +0200
Subject: Add sdl_window:set_title/2

---
 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 31c4ce9..01969df 100644
--- a/src/esdl2.erl
+++ b/src/esdl2.erl
@@ -97,6 +97,7 @@
 -export([set_window_minimum_size/3]).
 -export([set_window_position/3]).
 -export([set_window_size/3]).
+-export([set_window_title/2]).
 
 %% @todo We probably want to accept an env variable or somthing for the location.
 -on_load(on_load/0).
@@ -317,3 +318,6 @@ set_window_position(_, _, _) ->
 
 set_window_size(_, _, _) ->
 	erlang:nif_error({not_loaded, ?MODULE}).
+
+set_window_title(_, _) ->
+	erlang:nif_error({not_loaded, ?MODULE}).
diff --git a/src/sdl_window.erl b/src/sdl_window.erl
index f44c1cd..d4f980d 100644
--- a/src/sdl_window.erl
+++ b/src/sdl_window.erl
@@ -40,6 +40,7 @@
 -export([set_min_size/3]).
 -export([set_pos/3]).
 -export([set_size/3]).
+-export([set_title/2]).
 
 create(Title, X, Y, W, H, Flags) ->
 	esdl2:create_window(Title, X, Y, W, H, Flags),
@@ -136,3 +137,6 @@ set_pos(Window, X, Y) ->
 
 set_size(Window, W, H) ->
 	esdl2:set_window_size(Window, W, H).
+
+set_title(Window, Title) ->
+	esdl2:set_window_title(Window, Title).
-- 
cgit v1.2.3