Removed callback functions and types...

diff --git a/raylib.ads b/raylib.ads
index 7e9a24a311e8b4f5177725192c53b998c51043a9..bfbb01cc583dbcf5f46034aa73f21453434379c3 100644 (file)
--- a/raylib.ads
+++ b/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