Removed callback functions and types...

raylib.ads

@@ -724,15 +724,15 @@ package Raylib is
 	type Material_Array is array (Natural range <>) of Material;
 
 	type Model is record
-		Transform      :        Matrix_4D := Id_Matrix;
-		Mesh_Count     :        Integer   := 0;
-		Material_Count :        Integer   := 0;
-		Meshes         : access Mesh      := null;
+		Transform      :        Matrix_4D      := Id_Matrix;
+		Mesh_Count     :        Integer        := 0;
+		Material_Count :        Integer        := 0;
+		Meshes         : access Mesh           := null;
 		Materials      : access Material_Array := null;
-		Mesh_Materials : access Integer   := null;
-		Bone_Count     :        Integer   := 0;
-		Bones          : access Bone_Info := null;
-		--~Bind_Post      : access Transform := null; ERROR
+		Mesh_Materials : access Integer        := null;
+		Bone_Count     :        Integer        := 0;
+		Bones          : access Bone_Info      := null;
+		--~Bind_Post      : access Transform      := null; ERROR
 	end record with Convention => C_Pass_By_Copy;
 
 	No_Model : Model;
@@ -899,12 +899,6 @@ package Raylib is
 
 ------------------------------------------------------------------------
 
---~typedef void (*TraceLogCallback)(int logLevel, const char *text, va_list args);  -- Logging: Redirect trace log messages
---~typedef unsigned char *(*LoadFileDataCallback)(const char *fileName, int *dataSize);    -- FileIO: Load binary data
---~typedef bool (*SaveFileDataCallback)(const char *fileName, void *data, int dataSize);   -- FileIO: Save binary data
---~typedef char *(*LoadFileTextCallback)(const char *fileName);            -- FileIO: Load text data
---~typedef bool (*SaveFileTextCallback)(const char *fileName, char *text); -- FileIO: Save text data
-
 	procedure Open_Window (
 		Width  : Integer := 640;
 		Height : Integer := 480;
@@ -1608,31 +1602,6 @@ package Raylib is
 		Convention    => C,
 		External_Name => "MemFree";
 
-	--~procedure SetTraceLogCallback (TraceLogCallback callback) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "SetTraceLogCallback";
-
-	--~procedure SetLoadFileDataCallback (LoadFileDataCallback callback) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "SetLoadFileDataCallback";
-
-	--~procedure SetSaveFileDataCallback (SaveFileDataCallback callback) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "SetSaveFileDataCallback";
-
-	--~procedure SetLoadFileTextCallback (LoadFileTextCallback callback) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "SetLoadFileTextCallback";
-
-	--~procedure SetSaveFileTextCallback (SaveFileTextCallback callback) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "SetSaveFileTextCallback";
-
 	function Load_File_Data (
 		File_Name :        String  := "";
 		Data_Size : access Integer := null
@@ -4014,11 +3983,6 @@ package Raylib is
 		Convention    => C,
 		External_Name => "GetRayCollisionQuad";
 
-	--~typedef void  (*AudioCallback) (void *bufferData, unsigned int frames) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
-
 	procedure Open_Audio_Device with
 		Import        => True,
 		Convention    => C,
@@ -4463,11 +4427,6 @@ package Raylib is
 		Convention    => C,
 		External_Name => "SetAudioStreamBufferSizeDefault";
 
-	--~procedure SetAudioStreamCallback (AudioStream stream, AudioCallback callback) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
-
 	procedure Attach_Audio_Stream_Processor (
 		Stream    : Audio_Stream := No_Audio_Stream;
 		Processor : Pointer      := null