From 345ff1de0720af61e66fb99946817c5c34981b35 Mon Sep 17 00:00:00 2001
From: xolatile
Date: Fri, 5 Apr 2024 06:52:11 -0400
Subject: More font functions and C_String function...

---
 window.adb | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'window.adb')

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;
-- 
cgit v1.2.3