More font functions and C_String function...

1 files changed, 8 insertions, 3 deletions

diff --git a/window.adb b/window.adb
index f6b8086..0afc910 100644
--- a/window.adb
+++ b/window.adb
@@ -3,7 +3,12 @@ use  Raylib;
 
 procedure Window is
 
-	Text : String := "Heyo world!" & Character'Val (0);
+	function C_String (Data : String) return String is
+	begin
+		return (Data & Character'Val (0));
+	end C_String;
+
+	Text : String := C_String ("Heyo world!");
 
 	Dragdown : Texture;
 
@@ -12,12 +17,12 @@ procedure Window is
 
 begin
 
-	Open_Window (720, 360, "Heyo Raylib!" & Character'Val (0));
+	Open_Window (720, 360, C_String ("Heyo Raylib!"));
 
 	Set_Exit_Key   (Key_Q); -- Default is Key_Escape
 	Set_Target_FPS (72);    -- Default is 60
 
-	Dragdown := Load_Texture ("./texture.png" & Character'Val (0));
+	Dragdown := Load_Texture (C_String ("./texture.png"));
 
 	Main_Loop: loop
 		exit when Window_Should_Close;