--------------------------------------------------------------------------------------------------------------------
--  This source code is subject to the Zlib license, see the LICENCE file in the root of this directory.
--------------------------------------------------------------------------------------------------------------------
--  SDL.Events.Files
--------------------------------------------------------------------------------------------------------------------
with Interfaces.C.Strings;
with System;

package SDL.Events.Files is
   pragma Preelaborate;

   --  Drag and drop events.
   Drop_File : constant Event_Types := 16#0000_1000#;

   type Drop_Events is
      record
         Event_Type : Event_Types;                     --  Will be set to Drop_File.
         Time_Stamp : Time_Stamps;

         File_Name  : Interfaces.C.Strings.chars_ptr;  -- User *must* call Free on this.
      end record with
     Convention => C;
private
   for Drop_Events use
      record
         Event_Type at  0 * SDL.Word range  0  .. 31;
         Time_Stamp at  1 * SDL.Word range  0  .. 31;

         File_Name  at  2 * SDL.Word range  0  .. System.Word_Size - 1;  --  This will depend on platform.
      end record;
end SDL.Events.Files;