package body MSHTML.IHTCAttachBehavior_Object is

   procedure FireEvent
     (This : IHTCAttachBehavior_Type;
      evt  : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Invoke
        (This,
         IHTCAttachBehavior_FireEvent,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => evt),
         Free);
   end FireEvent;

   procedure detachEvent
     (This : IHTCAttachBehavior_Type)
   is
   begin
      Invoke (This, IHTCAttachBehavior_detachEvent);
   end detachEvent;

end MSHTML.IHTCAttachBehavior_Object;

