xolatile/raylib-ada
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Automation event functions...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-04-05 10:02:52 -04:00
parent 0cf0ed7cd9
commit d9327c57f2
1 changed files with 46 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

79
raylib.ads
View File

@ -934,7 +934,7 @@ package Raylib is
procedure Open_Window ( procedure Open_Window (
Width : Integer := 640; Width : Integer := 640;
Height : Integer := 480; Height : Integer := 480;
Title : String := "" Title : String := "Raylib-Ada" & Character'Val (0)
) with ) with
Import => True, Import => True,
Convention => C, Convention => C,
@ -1789,45 +1789,58 @@ package Raylib is
--~Convention => C, --~Convention => C,
--~External_Name => "DecodeDataBase64"; --~External_Name => "DecodeDataBase64";
--~function AutomationEventList LoadAutomationEventList (const char *fileName) with function Load_Automation_Event_List (
--~Import => True, File_Name : String := ""
--~Convention => C, ) return Automation_Event_List with
--~External_Name => "LoadAutomationEventList"; Import => True,
Convention => C,
External_Name => "LoadAutomationEventList";
--~procedure UnloadAutomationEventList (AutomationEventList *list) with procedure Unload_Automation_Event_List (
--~Import => True, Data : access Automation_Event_List := null
--~Convention => C, ) with
--~External_Name => "UnloadAutomationEventList"; Import => True,
Convention => C,
External_Name => "UnloadAutomationEventList";
--~function bool ExportAutomationEventList (AutomationEventList list, const char *fileName) with function Export_Automation_Event_List (
--~Import => True, Data : Automation_Event_List := No_Automation_Event_List;
--~Convention => C, File_Name : String := ""
--~External_Name => "ExportAutomationEventList"; ) return Logical with
Import => True,
Convention => C,
External_Name => "ExportAutomationEventList";
--~procedure SetAutomationEventList (AutomationEventList *list) with procedure Set_Automation_Event_List (
--~Import => True, Data : access Automation_Event_List := null
--~Convention => C, ) with
--~External_Name => "SetAutomationEventList"; Import => True,
Convention => C,
External_Name => "SetAutomationEventList";
--~procedure SetAutomationEventBaseFrame (int frame) with procedure Set_Automation_Event_Base_Frame (
--~Import => True, Frame : Integer := 0
--~Convention => C, ) with
--~External_Name => "SetAutomationEventBaseFrame"; Import => True,
Convention => C,
External_Name => "SetAutomationEventBaseFrame";
--~procedure StartAutomationEventRecording (void) with procedure Start_Automation_Event_Recording with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => "StartAutomationEventRecording"; External_Name => "StartAutomationEventRecording";
--~procedure StopAutomationEventRecording (void) with procedure Stop_Automation_Event_Recording with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => "StopAutomationEventRecording"; External_Name => "StopAutomationEventRecording";
--~procedure PlayAutomationEvent (AutomationEvent event) with procedure Play_Automation_Event (
--~Import => True, Event : Automation_Event := No_Automation_Event
--~Convention => C, ) with
--~External_Name => "PlayAutomationEvent"; Import => True,
Convention => C,
External_Name => "PlayAutomationEvent";
function Is_Key_Pressed ( function Is_Key_Pressed (
Key : Keyboard_Key := Key_Null Key : Keyboard_Key := Key_Null