Add title function to Env (#128)

Schmavery · Jan 19, 2019 · 4bebea8 · 4bebea8
1 parent 3bb9545
commit 4bebea8
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 0 deletions.
diff --git a/examples/redsquare.re b/examples/redsquare.re
@@ -10,6 +10,7 @@ let squareSize = 300;
 
 let setup = (env) => {
   size(~width=600, ~height=600, env);
+  title("Red Square", env);
   fill(Reprocessing.Constants.red, env);
   (0, 0)
 };

diff --git a/src/Reprocessing_Env.re b/src/Reprocessing_Env.re
@@ -27,6 +27,9 @@ let size = (~width, ~height, env: glEnv) => {
   Reprocessing_Internal.resetSize(env, width, height)
 };
 
+let title = (title, env: glEnv) =>
+  Reasongl.Gl.Window.setWindowTitle(~window=env.window, ~title);
+
 let resizeable = (resizeable, env: glEnv) => env.size.resizeable = resizeable;
 
 let frameRate = (env: glEnv) => env.frame.rate;

diff --git a/src/Reprocessing_Env.rei b/src/Reprocessing_Env.rei
@@ -20,6 +20,8 @@ let keyReleased:
 
 let size: (~width: int, ~height: int, Reprocessing_Types.Types.glEnvT) => unit;
 
+let title: (string, Reprocessing_Types.Types.glEnvT) => unit;
+
 let resizeable: (bool, Reprocessing_Types.Types.glEnvT) => unit;
 
 let frameRate: Reprocessing_Types.Types.glEnvT => int;