diff options
Diffstat (limited to 'window.adb')
| -rw-r--r-- | window.adb | 11 |
1 files changed, 8 insertions, 3 deletions
@@ -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; |