From 888eb9ce8b8058553b4b9d09052b1b42ecaea30e Mon Sep 17 00:00:00 2001 From: rexim Date: Fri, 15 Mar 2024 00:12:20 +0700 Subject: Make Palette Editor actual useful --- raylib.ads | 24 ++++++++++++++++-------- 1 file changed, 16 insertions(+), 8 deletions(-) (limited to 'raylib.ads') diff --git a/raylib.ads b/raylib.ads index 32cd34c..6b8d870 100644 --- a/raylib.ads +++ b/raylib.ads @@ -60,14 +60,17 @@ package Raylib is Import => True, Convention => C, External_Name => "SetConfigFlags"; - KEY_R: constant int := 82; - KEY_S: constant int := 83; - KEY_W: constant int := 87; - KEY_A: constant int := 65; - KEY_D: constant int := 68; - KEY_P: constant int := 80; - KEY_O: constant int := 79; - KEY_SPACE: constant int := 32; + KEY_NULL: constant int := 0; + KEY_R: constant int := 82; + KEY_S: constant int := 83; + KEY_W: constant int := 87; + KEY_A: constant int := 65; + KEY_D: constant int := 68; + KEY_P: constant int := 80; + KEY_O: constant int := 79; + KEY_SPACE: constant int := 32; + KEY_ESCAPE: constant int := 256; + KEY_ENTER: constant Int := 257; function Is_Key_Pressed(key: int) return C_bool with Import => True, @@ -157,4 +160,9 @@ package Raylib is Import => True, Convention => C, External_Name => "ColorFromHSV"; + procedure Set_Exit_Key(Key: Int) + with + Import => True, + Convention => C, + External_Name => "SetExitKey"; end Raylib; -- cgit v1.2.3