package body MSHTML.HTMLObjectElementEvents_Events is

   procedure Invoke
     (dispidMember : in Interfaces.C.long;
      wFlags       : in Interfaces.C.unsigned_short;
      pdispparams  : in GNATCOM.Types.Pointer_To_DISPPARAMS;
      Event_Object : in GNATCOM.Events.Event_Object.Event_Pointer)
   is
      use type Interfaces.C.long;
   begin
      case dispidMember is
         when HTMLObjectElementEvents_onbeforeupdate=>
            onbeforeupdate
              (HTMLObjectElementEvents_Event'Class (Event_Object.all));
         when HTMLObjectElementEvents_onafterupdate=>
            onafterupdate
              (HTMLObjectElementEvents_Event'Class (Event_Object.all));
         when HTMLObjectElementEvents_onerrorupdate=>
            onerrorupdate
              (HTMLObjectElementEvents_Event'Class (Event_Object.all));
         when HTMLObjectElementEvents_onrowexit=>
            onrowexit
              (HTMLObjectElementEvents_Event'Class (Event_Object.all));
         when HTMLObjectElementEvents_onrowenter=>
            onrowenter
              (HTMLObjectElementEvents_Event'Class (Event_Object.all));
         when HTMLObjectElementEvents_ondatasetchanged=>
            ondatasetchanged
              (HTMLObjectElementEvents_Event'Class (Event_Object.all));
         when HTMLObjectElementEvents_ondataavailable=>
            ondataavailable
              (HTMLObjectElementEvents_Event'Class (Event_Object.all));
         when HTMLObjectElementEvents_ondatasetcomplete=>
            ondatasetcomplete
              (HTMLObjectElementEvents_Event'Class (Event_Object.all));
         when HTMLObjectElementEvents_onerror=>
            onerror
              (HTMLObjectElementEvents_Event'Class (Event_Object.all));
         when HTMLObjectElementEvents_onrowsdelete=>
            onrowsdelete
              (HTMLObjectElementEvents_Event'Class (Event_Object.all));
         when HTMLObjectElementEvents_onrowsinserted=>
            onrowsinserted
              (HTMLObjectElementEvents_Event'Class (Event_Object.all));
         when HTMLObjectElementEvents_oncellchange=>
            oncellchange
              (HTMLObjectElementEvents_Event'Class (Event_Object.all));
         when HTMLObjectElementEvents_onreadystatechange=>
            onreadystatechange
              (HTMLObjectElementEvents_Event'Class (Event_Object.all));
         when others =>
            null;
      end case;
   end Invoke;

   function Create (From : in GNATCOM.Events.Event_Object.Event_Pointer)
     return GNATCOM.Create.COM_Interface.Pointer_To_COM_Interface_Type
   is
   begin
      return GNATCOM.Events.Event_Object.Create
        (Invoke'Access,
         IID_HTMLObjectElementEvents,
         From);
   end Create;

   procedure Set_Events
     (This            : in out GNATCOM.Events.IConnectionPoint_Type;
      For_Object      : in     GNATCOM.IInterface.Interface_Type'Class;
      Event_Interface :
        access GNATCOM.Create.COM_Interface.COM_Interface_Type;
      Free            : Boolean := True)
   is
   begin
      GNATCOM.Events.Set_Events
        (This,
         For_Object,
         IID_HTMLObjectElementEvents,
         Event_Interface,
         Free);
   end Set_Events;

   procedure onbeforeupdate
     (This : HTMLObjectElementEvents_Event)
   is
   begin
      null;
   end onbeforeupdate;

   procedure onafterupdate
     (This : HTMLObjectElementEvents_Event)
   is
   begin
      null;
   end onafterupdate;

   procedure onerrorupdate
     (This : HTMLObjectElementEvents_Event)
   is
   begin
      null;
   end onerrorupdate;

   procedure onrowexit
     (This : HTMLObjectElementEvents_Event)
   is
   begin
      null;
   end onrowexit;

   procedure onrowenter
     (This : HTMLObjectElementEvents_Event)
   is
   begin
      null;
   end onrowenter;

   procedure ondatasetchanged
     (This : HTMLObjectElementEvents_Event)
   is
   begin
      null;
   end ondatasetchanged;

   procedure ondataavailable
     (This : HTMLObjectElementEvents_Event)
   is
   begin
      null;
   end ondataavailable;

   procedure ondatasetcomplete
     (This : HTMLObjectElementEvents_Event)
   is
   begin
      null;
   end ondatasetcomplete;

   procedure onerror
     (This : HTMLObjectElementEvents_Event)
   is
   begin
      null;
   end onerror;

   procedure onrowsdelete
     (This : HTMLObjectElementEvents_Event)
   is
   begin
      null;
   end onrowsdelete;

   procedure onrowsinserted
     (This : HTMLObjectElementEvents_Event)
   is
   begin
      null;
   end onrowsinserted;

   procedure oncellchange
     (This : HTMLObjectElementEvents_Event)
   is
   begin
      null;
   end oncellchange;

   procedure onreadystatechange
     (This : HTMLObjectElementEvents_Event)
   is
   begin
      null;
   end onreadystatechange;

end MSHTML.HTMLObjectElementEvents_Events;

