with GNATCOM.IInterface;

package MSHTML.IDeveloperConsoleMessageReceiver_Interface is

   type IDeveloperConsoleMessageReceiver_Type is
     new GNATCOM.IInterface.Interface_Type with null record;

   procedure Initialize (This : in out IDeveloperConsoleMessageReceiver_Type);

   function Pointer (This : IDeveloperConsoleMessageReceiver_Type)
     return Pointer_To_IDeveloperConsoleMessageReceiver;

   procedure Attach (This    : in out IDeveloperConsoleMessageReceiver_Type;
                     Pointer : in     Pointer_To_IDeveloperConsoleMessageReceiver);

   procedure write
     (This        : IDeveloperConsoleMessageReceiver_Type;
      source      : GNATCOM.Types.LPWSTR;
      level       : uDEV_CONSOLE_MESSAGE_LEVEL;
      messageId   : Interfaces.C.int;
      messageText : GNATCOM.Types.LPWSTR);

   procedure WriteWithUrl
     (This        : IDeveloperConsoleMessageReceiver_Type;
      source      : GNATCOM.Types.LPWSTR;
      level       : uDEV_CONSOLE_MESSAGE_LEVEL;
      messageId   : Interfaces.C.int;
      messageText : GNATCOM.Types.LPWSTR;
      fileUrl     : GNATCOM.Types.LPWSTR);

   procedure WriteWithUrlAndLine
     (This        : IDeveloperConsoleMessageReceiver_Type;
      source      : GNATCOM.Types.LPWSTR;
      level       : uDEV_CONSOLE_MESSAGE_LEVEL;
      messageId   : Interfaces.C.int;
      messageText : GNATCOM.Types.LPWSTR;
      fileUrl     : GNATCOM.Types.LPWSTR;
      line        : Interfaces.C.unsigned_long);

   procedure WriteWithUrlLineAndColumn
     (This        : IDeveloperConsoleMessageReceiver_Type;
      source      : GNATCOM.Types.LPWSTR;
      level       : uDEV_CONSOLE_MESSAGE_LEVEL;
      messageId   : Interfaces.C.int;
      messageText : GNATCOM.Types.LPWSTR;
      fileUrl     : GNATCOM.Types.LPWSTR;
      line        : Interfaces.C.unsigned_long;
      column      : Interfaces.C.unsigned_long);

end MSHTML.IDeveloperConsoleMessageReceiver_Interface;

