Natools

------------------------------------------------------------------------------
-- Copyright (c) 2014-2017, Natacha Porté                                   --
--                                                                          --
-- Permission to use, copy, modify, and distribute this software for any    --
-- purpose with or without fee is hereby granted, provided that the above   --
-- copyright notice and this permission notice appear in all copies.        --
--                                                                          --
-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES --
-- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF         --

         else
            Callback := Callback_Refs.Null_Reference;
         end if;

         First_Changed := False;
      end Get_First;


      procedure Get_Event_List
        (Source : in Event_List;
         List : out Event_Lists.List) is
      begin
         List := Source.List;
      end Get_Event_List;


      entry Update_Notification when First_Changed is
      begin
         null;
      end Update_Notification;

   end Database;

   ----------------
   -- Event List --
   ----------------

   overriding procedure Run (Self : in out Event_List) is
      Local_List : Event_Lists.List;
   begin
      Database.Get_Event_List (Self, Local_List);

      for Ref of Local_List loop
         Ref.Update.Data.Run;
      end loop;
   end Run;


   procedure Append
     (Self : in out Event_List;