package body MSHTML.DispHTMLEmbed_Object is

   procedure setAttribute
     (This             : DispHTMLEmbed_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      AttributeValue   : GNATCOM.Types.VARIANT;
      lFlags           : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free             : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLEmbed_setAttribute,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => lFlags,
          2 => AttributeValue,
          3 => strAttributeName),
         Free);
   end setAttribute;

   function getAttribute
     (This             : DispHTMLEmbed_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      lFlags           : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_getAttribute,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => lFlags,
          2 => strAttributeName),
         Free);
   end getAttribute;

   function removeAttribute
     (This             : DispHTMLEmbed_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      lFlags           : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_removeAttribute,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => lFlags,
          2 => strAttributeName),
         Free);
   end removeAttribute;

   procedure Put_className
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_className,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_className;

   function Get_className
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_className);
   end Get_className;

   procedure Put_id
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_id,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_id;

   function Get_id
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_id);
   end Get_id;

   function Get_tagName
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_tagName);
   end Get_tagName;

   function Get_parentElement
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_parentElement);
   end Get_parentElement;

   function Get_style
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_style);
   end Get_style;

   procedure Put_onhelp
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onhelp,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onhelp;

   function Get_onhelp
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onhelp);
   end Get_onhelp;

   procedure Put_onclick
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onclick,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onclick;

   function Get_onclick
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onclick);
   end Get_onclick;

   procedure Put_ondblclick
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ondblclick,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ondblclick;

   function Get_ondblclick
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ondblclick);
   end Get_ondblclick;

   procedure Put_onkeydown
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onkeydown,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onkeydown;

   function Get_onkeydown
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onkeydown);
   end Get_onkeydown;

   procedure Put_onkeyup
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onkeyup,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onkeyup;

   function Get_onkeyup
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onkeyup);
   end Get_onkeyup;

   procedure Put_onkeypress
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onkeypress,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onkeypress;

   function Get_onkeypress
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onkeypress);
   end Get_onkeypress;

   procedure Put_onmouseout
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmouseout,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmouseout;

   function Get_onmouseout
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmouseout);
   end Get_onmouseout;

   procedure Put_onmouseover
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmouseover,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmouseover;

   function Get_onmouseover
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmouseover);
   end Get_onmouseover;

   procedure Put_onmousemove
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmousemove,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmousemove;

   function Get_onmousemove
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmousemove);
   end Get_onmousemove;

   procedure Put_onmousedown
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmousedown,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmousedown;

   function Get_onmousedown
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmousedown);
   end Get_onmousedown;

   procedure Put_onmouseup
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmouseup,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmouseup;

   function Get_onmouseup
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmouseup);
   end Get_onmouseup;

   function Get_document
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_document);
   end Get_document;

   procedure Put_title
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_title,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_title;

   function Get_title
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_title);
   end Get_title;

   procedure Put_language
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_language,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_language;

   function Get_language
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_language);
   end Get_language;

   procedure Put_onselectstart
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onselectstart,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onselectstart;

   function Get_onselectstart
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onselectstart);
   end Get_onselectstart;

   procedure scrollIntoView
     (This        : DispHTMLEmbed_Type;
      varargStart : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free        : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLEmbed_scrollIntoView,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => varargStart),
         Free);
   end scrollIntoView;

   function contains
     (This   : DispHTMLEmbed_Type;
      pChild : GNATCOM.Types.VARIANT;
      Free   : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_contains,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pChild),
         Free);
   end contains;

   function Get_sourceIndex
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_sourceIndex);
   end Get_sourceIndex;

   function Get_recordNumber
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_recordNumber);
   end Get_recordNumber;

   procedure Put_lang
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_lang,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_lang;

   function Get_lang
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_lang);
   end Get_lang;

   function Get_offsetLeft
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_offsetLeft);
   end Get_offsetLeft;

   function Get_offsetTop
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_offsetTop);
   end Get_offsetTop;

   function Get_offsetWidth
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_offsetWidth);
   end Get_offsetWidth;

   function Get_offsetHeight
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_offsetHeight);
   end Get_offsetHeight;

   function Get_offsetParent
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_offsetParent);
   end Get_offsetParent;

   procedure Put_innerHTML
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_innerHTML,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_innerHTML;

   function Get_innerHTML
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_innerHTML);
   end Get_innerHTML;

   procedure Put_innerText
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_innerText,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_innerText;

   function Get_innerText
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_innerText);
   end Get_innerText;

   procedure Put_outerHTML
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_outerHTML,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_outerHTML;

   function Get_outerHTML
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_outerHTML);
   end Get_outerHTML;

   procedure Put_outerText
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_outerText,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_outerText;

   function Get_outerText
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_outerText);
   end Get_outerText;

   procedure insertAdjacentHTML
     (This  : DispHTMLEmbed_Type;
      where : GNATCOM.Types.VARIANT;
      html  : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLEmbed_insertAdjacentHTML,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => html,
          2 => where),
         Free);
   end insertAdjacentHTML;

   procedure insertAdjacentText
     (This  : DispHTMLEmbed_Type;
      where : GNATCOM.Types.VARIANT;
      text  : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLEmbed_insertAdjacentText,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => text,
          2 => where),
         Free);
   end insertAdjacentText;

   function Get_parentTextEdit
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_parentTextEdit);
   end Get_parentTextEdit;

   function Get_isTextEdit
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_isTextEdit);
   end Get_isTextEdit;

   procedure click
     (This : DispHTMLEmbed_Type)
   is
   begin
      Invoke (This, DispHTMLEmbed_click);
   end click;

   function Get_filters
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_filters);
   end Get_filters;

   procedure Put_ondragstart
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ondragstart,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ondragstart;

   function Get_ondragstart
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ondragstart);
   end Get_ondragstart;

   function toString
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, DispHTMLEmbed_toString);
   end toString;

   procedure Put_onbeforeupdate
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onbeforeupdate,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onbeforeupdate;

   function Get_onbeforeupdate
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onbeforeupdate);
   end Get_onbeforeupdate;

   procedure Put_onafterupdate
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onafterupdate,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onafterupdate;

   function Get_onafterupdate
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onafterupdate);
   end Get_onafterupdate;

   procedure Put_onerrorupdate
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onerrorupdate,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onerrorupdate;

   function Get_onerrorupdate
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onerrorupdate);
   end Get_onerrorupdate;

   procedure Put_onrowexit
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onrowexit,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onrowexit;

   function Get_onrowexit
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onrowexit);
   end Get_onrowexit;

   procedure Put_onrowenter
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onrowenter,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onrowenter;

   function Get_onrowenter
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onrowenter);
   end Get_onrowenter;

   procedure Put_ondatasetchanged
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ondatasetchanged,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ondatasetchanged;

   function Get_ondatasetchanged
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ondatasetchanged);
   end Get_ondatasetchanged;

   procedure Put_ondataavailable
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ondataavailable,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ondataavailable;

   function Get_ondataavailable
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ondataavailable);
   end Get_ondataavailable;

   procedure Put_ondatasetcomplete
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ondatasetcomplete,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ondatasetcomplete;

   function Get_ondatasetcomplete
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ondatasetcomplete);
   end Get_ondatasetcomplete;

   procedure Put_onfilterchange
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onfilterchange,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onfilterchange;

   function Get_onfilterchange
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onfilterchange);
   end Get_onfilterchange;

   function Get_children
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_children);
   end Get_children;

   function Get_all
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_all);
   end Get_all;

   function Get_scopeName
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_scopeName);
   end Get_scopeName;

   procedure setCapture
     (This             : DispHTMLEmbed_Type;
      containerCapture : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free             : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLEmbed_setCapture,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => containerCapture),
         Free);
   end setCapture;

   procedure releaseCapture
     (This : DispHTMLEmbed_Type)
   is
   begin
      Invoke (This, DispHTMLEmbed_releaseCapture);
   end releaseCapture;

   procedure Put_onlosecapture
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onlosecapture,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onlosecapture;

   function Get_onlosecapture
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onlosecapture);
   end Get_onlosecapture;

   function componentFromPoint
     (This : DispHTMLEmbed_Type;
      x    : GNATCOM.Types.VARIANT;
      y    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_componentFromPoint,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => y,
          2 => x),
         Free);
   end componentFromPoint;

   procedure doScroll
     (This      : DispHTMLEmbed_Type;
      component : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free      : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLEmbed_doScroll,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => component),
         Free);
   end doScroll;

   procedure Put_onscroll
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onscroll,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onscroll;

   function Get_onscroll
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onscroll);
   end Get_onscroll;

   procedure Put_ondrag
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ondrag,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ondrag;

   function Get_ondrag
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ondrag);
   end Get_ondrag;

   procedure Put_ondragend
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ondragend,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ondragend;

   function Get_ondragend
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ondragend);
   end Get_ondragend;

   procedure Put_ondragenter
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ondragenter,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ondragenter;

   function Get_ondragenter
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ondragenter);
   end Get_ondragenter;

   procedure Put_ondragover
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ondragover,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ondragover;

   function Get_ondragover
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ondragover);
   end Get_ondragover;

   procedure Put_ondragleave
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ondragleave,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ondragleave;

   function Get_ondragleave
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ondragleave);
   end Get_ondragleave;

   procedure Put_ondrop
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ondrop,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ondrop;

   function Get_ondrop
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ondrop);
   end Get_ondrop;

   procedure Put_onbeforecut
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onbeforecut,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onbeforecut;

   function Get_onbeforecut
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onbeforecut);
   end Get_onbeforecut;

   procedure Put_oncut
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_oncut,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_oncut;

   function Get_oncut
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_oncut);
   end Get_oncut;

   procedure Put_onbeforecopy
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onbeforecopy,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onbeforecopy;

   function Get_onbeforecopy
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onbeforecopy);
   end Get_onbeforecopy;

   procedure Put_oncopy
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_oncopy,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_oncopy;

   function Get_oncopy
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_oncopy);
   end Get_oncopy;

   procedure Put_onbeforepaste
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onbeforepaste,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onbeforepaste;

   function Get_onbeforepaste
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onbeforepaste);
   end Get_onbeforepaste;

   procedure Put_onpaste
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onpaste,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onpaste;

   function Get_onpaste
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onpaste);
   end Get_onpaste;

   function Get_currentStyle
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_currentStyle);
   end Get_currentStyle;

   procedure Put_onpropertychange
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onpropertychange,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onpropertychange;

   function Get_onpropertychange
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onpropertychange);
   end Get_onpropertychange;

   function getClientRects
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, DispHTMLEmbed_getClientRects);
   end getClientRects;

   function getBoundingClientRect
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, DispHTMLEmbed_getBoundingClientRect);
   end getBoundingClientRect;

   procedure setExpression
     (This       : DispHTMLEmbed_Type;
      propname   : GNATCOM.Types.VARIANT;
      expression : GNATCOM.Types.VARIANT;
      language   : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free       : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLEmbed_setExpression,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => language,
          2 => expression,
          3 => propname),
         Free);
   end setExpression;

   function getExpression
     (This     : DispHTMLEmbed_Type;
      propname : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_getExpression,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => propname),
         Free);
   end getExpression;

   function removeExpression
     (This     : DispHTMLEmbed_Type;
      propname : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_removeExpression,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => propname),
         Free);
   end removeExpression;

   procedure Put_tabIndex
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_tabIndex,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_tabIndex;

   function Get_tabIndex
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_tabIndex);
   end Get_tabIndex;

   procedure focus
     (This : DispHTMLEmbed_Type)
   is
   begin
      Invoke (This, DispHTMLEmbed_focus);
   end focus;

   procedure Put_accessKey
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_accessKey,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_accessKey;

   function Get_accessKey
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_accessKey);
   end Get_accessKey;

   procedure Put_onblur
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onblur,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onblur;

   function Get_onblur
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onblur);
   end Get_onblur;

   procedure Put_onfocus
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onfocus,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onfocus;

   function Get_onfocus
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onfocus);
   end Get_onfocus;

   procedure Put_onresize
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onresize,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onresize;

   function Get_onresize
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onresize);
   end Get_onresize;

   procedure blur
     (This : DispHTMLEmbed_Type)
   is
   begin
      Invoke (This, DispHTMLEmbed_blur);
   end blur;

   procedure addFilter
     (This : DispHTMLEmbed_Type;
      pUnk : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLEmbed_addFilter,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pUnk),
         Free);
   end addFilter;

   procedure removeFilter
     (This : DispHTMLEmbed_Type;
      pUnk : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLEmbed_removeFilter,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pUnk),
         Free);
   end removeFilter;

   function Get_clientHeight
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_clientHeight);
   end Get_clientHeight;

   function Get_clientWidth
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_clientWidth);
   end Get_clientWidth;

   function Get_clientTop
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_clientTop);
   end Get_clientTop;

   function Get_clientLeft
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_clientLeft);
   end Get_clientLeft;

   function attachEvent
     (This  : DispHTMLEmbed_Type;
      event : GNATCOM.Types.VARIANT;
      pdisp : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_attachEvent,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pdisp,
          2 => event),
         Free);
   end attachEvent;

   procedure detachEvent
     (This  : DispHTMLEmbed_Type;
      event : GNATCOM.Types.VARIANT;
      pdisp : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLEmbed_detachEvent,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pdisp,
          2 => event),
         Free);
   end detachEvent;

   function Get_readyState
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_readyState);
   end Get_readyState;

   procedure Put_onreadystatechange
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onreadystatechange,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onreadystatechange;

   function Get_onreadystatechange
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onreadystatechange);
   end Get_onreadystatechange;

   procedure Put_onrowsdelete
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onrowsdelete,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onrowsdelete;

   function Get_onrowsdelete
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onrowsdelete);
   end Get_onrowsdelete;

   procedure Put_onrowsinserted
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onrowsinserted,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onrowsinserted;

   function Get_onrowsinserted
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onrowsinserted);
   end Get_onrowsinserted;

   procedure Put_oncellchange
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_oncellchange,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_oncellchange;

   function Get_oncellchange
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_oncellchange);
   end Get_oncellchange;

   procedure Put_dir
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_dir,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_dir;

   function Get_dir
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_dir);
   end Get_dir;

   function createControlRange
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, DispHTMLEmbed_createControlRange);
   end createControlRange;

   function Get_scrollHeight
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_scrollHeight);
   end Get_scrollHeight;

   function Get_scrollWidth
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_scrollWidth);
   end Get_scrollWidth;

   procedure Put_scrollTop
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_scrollTop,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_scrollTop;

   function Get_scrollTop
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_scrollTop);
   end Get_scrollTop;

   procedure Put_scrollLeft
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_scrollLeft,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_scrollLeft;

   function Get_scrollLeft
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_scrollLeft);
   end Get_scrollLeft;

   procedure clearAttributes
     (This : DispHTMLEmbed_Type)
   is
   begin
      Invoke (This, DispHTMLEmbed_clearAttributes);
   end clearAttributes;

   procedure Put_oncontextmenu
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_oncontextmenu,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_oncontextmenu;

   function Get_oncontextmenu
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_oncontextmenu);
   end Get_oncontextmenu;

   function insertAdjacentElement
     (This            : DispHTMLEmbed_Type;
      where           : GNATCOM.Types.VARIANT;
      insertedElement : GNATCOM.Types.VARIANT;
      Free            : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_insertAdjacentElement,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => insertedElement,
          2 => where),
         Free);
   end insertAdjacentElement;

   function applyElement
     (This  : DispHTMLEmbed_Type;
      apply : GNATCOM.Types.VARIANT;
      where : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_applyElement,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => where,
          2 => apply),
         Free);
   end applyElement;

   function getAdjacentText
     (This  : DispHTMLEmbed_Type;
      where : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_getAdjacentText,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => where),
         Free);
   end getAdjacentText;

   function replaceAdjacentText
     (This    : DispHTMLEmbed_Type;
      where   : GNATCOM.Types.VARIANT;
      newText : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_replaceAdjacentText,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => newText,
          2 => where),
         Free);
   end replaceAdjacentText;

   function Get_canHaveChildren
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_canHaveChildren);
   end Get_canHaveChildren;

   function addBehavior
     (This        : DispHTMLEmbed_Type;
      bstrURL     : GNATCOM.Types.VARIANT;
      pvarFactory : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free        : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_addBehavior,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pvarFactory,
          2 => bstrURL),
         Free);
   end addBehavior;

   function removeBehavior
     (This   : DispHTMLEmbed_Type;
      cookie : GNATCOM.Types.VARIANT;
      Free   : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_removeBehavior,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => cookie),
         Free);
   end removeBehavior;

   function Get_runtimeStyle
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_runtimeStyle);
   end Get_runtimeStyle;

   function Get_behaviorUrns
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_behaviorUrns);
   end Get_behaviorUrns;

   procedure Put_tagUrn
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_tagUrn,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_tagUrn;

   function Get_tagUrn
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_tagUrn);
   end Get_tagUrn;

   procedure Put_onbeforeeditfocus
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onbeforeeditfocus,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onbeforeeditfocus;

   function Get_onbeforeeditfocus
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onbeforeeditfocus);
   end Get_onbeforeeditfocus;

   function Get_readyStateValue
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_readyStateValue);
   end Get_readyStateValue;

   function getElementsByTagName
     (This : DispHTMLEmbed_Type;
      v    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_getElementsByTagName,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => v),
         Free);
   end getElementsByTagName;

   procedure mergeAttributes
     (This      : DispHTMLEmbed_Type;
      mergeThis : GNATCOM.Types.VARIANT;
      pvarFlags : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free      : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLEmbed_mergeAttributes,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pvarFlags,
          2 => mergeThis),
         Free);
   end mergeAttributes;

   function Get_isMultiLine
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_isMultiLine);
   end Get_isMultiLine;

   function Get_canHaveHTML
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_canHaveHTML);
   end Get_canHaveHTML;

   procedure Put_onlayoutcomplete
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onlayoutcomplete,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onlayoutcomplete;

   function Get_onlayoutcomplete
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onlayoutcomplete);
   end Get_onlayoutcomplete;

   procedure Put_onpage
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onpage,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onpage;

   function Get_onpage
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onpage);
   end Get_onpage;

   procedure Put_inflateBlock
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_inflateBlock,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_inflateBlock;

   function Get_inflateBlock
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_inflateBlock);
   end Get_inflateBlock;

   procedure Put_onbeforedeactivate
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onbeforedeactivate,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onbeforedeactivate;

   function Get_onbeforedeactivate
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onbeforedeactivate);
   end Get_onbeforedeactivate;

   procedure setActive
     (This : DispHTMLEmbed_Type)
   is
   begin
      Invoke (This, DispHTMLEmbed_setActive);
   end setActive;

   procedure Put_contentEditable
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_contentEditable,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_contentEditable;

   function Get_contentEditable
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_contentEditable);
   end Get_contentEditable;

   function Get_isContentEditable
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_isContentEditable);
   end Get_isContentEditable;

   procedure Put_hideFocus
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_hideFocus,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_hideFocus;

   function Get_hideFocus
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_hideFocus);
   end Get_hideFocus;

   procedure Put_disabled
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_disabled,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_disabled;

   function Get_disabled
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_disabled);
   end Get_disabled;

   function Get_isDisabled
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_isDisabled);
   end Get_isDisabled;

   procedure Put_onmove
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmove,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmove;

   function Get_onmove
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmove);
   end Get_onmove;

   procedure Put_oncontrolselect
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_oncontrolselect,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_oncontrolselect;

   function Get_oncontrolselect
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_oncontrolselect);
   end Get_oncontrolselect;

   function FireEvent
     (This            : DispHTMLEmbed_Type;
      bstrEventName   : GNATCOM.Types.VARIANT;
      pvarEventObject : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free            : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_FireEvent,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pvarEventObject,
          2 => bstrEventName),
         Free);
   end FireEvent;

   procedure Put_onresizestart
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onresizestart,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onresizestart;

   function Get_onresizestart
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onresizestart);
   end Get_onresizestart;

   procedure Put_onresizeend
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onresizeend,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onresizeend;

   function Get_onresizeend
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onresizeend);
   end Get_onresizeend;

   procedure Put_onmovestart
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmovestart,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmovestart;

   function Get_onmovestart
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmovestart);
   end Get_onmovestart;

   procedure Put_onmoveend
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmoveend,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmoveend;

   function Get_onmoveend
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmoveend);
   end Get_onmoveend;

   procedure Put_onmouseenter
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmouseenter,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmouseenter;

   function Get_onmouseenter
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmouseenter);
   end Get_onmouseenter;

   procedure Put_onmouseleave
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmouseleave,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmouseleave;

   function Get_onmouseleave
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmouseleave);
   end Get_onmouseleave;

   procedure Put_onactivate
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onactivate,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onactivate;

   function Get_onactivate
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onactivate);
   end Get_onactivate;

   procedure Put_ondeactivate
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ondeactivate,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ondeactivate;

   function Get_ondeactivate
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ondeactivate);
   end Get_ondeactivate;

   function dragDrop
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, DispHTMLEmbed_dragDrop);
   end dragDrop;

   function Get_glyphMode
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_glyphMode);
   end Get_glyphMode;

   procedure Put_onmousewheel
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmousewheel,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmousewheel;

   function Get_onmousewheel
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmousewheel);
   end Get_onmousewheel;

   procedure normalize
     (This : DispHTMLEmbed_Type)
   is
   begin
      Invoke (This, DispHTMLEmbed_normalize);
   end normalize;

   function getAttributeNode
     (This     : DispHTMLEmbed_Type;
      bstrName : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_getAttributeNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrName),
         Free);
   end getAttributeNode;

   function setAttributeNode
     (This  : DispHTMLEmbed_Type;
      pattr : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_setAttributeNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pattr),
         Free);
   end setAttributeNode;

   function removeAttributeNode
     (This  : DispHTMLEmbed_Type;
      pattr : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_removeAttributeNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pattr),
         Free);
   end removeAttributeNode;

   procedure Put_onbeforeactivate
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onbeforeactivate,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onbeforeactivate;

   function Get_onbeforeactivate
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onbeforeactivate);
   end Get_onbeforeactivate;

   procedure Put_onfocusin
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onfocusin,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onfocusin;

   function Get_onfocusin
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onfocusin);
   end Get_onfocusin;

   procedure Put_onfocusout
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onfocusout,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onfocusout;

   function Get_onfocusout
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onfocusout);
   end Get_onfocusout;

   function Get_uniqueNumber
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_uniqueNumber);
   end Get_uniqueNumber;

   function Get_uniqueID
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_uniqueID);
   end Get_uniqueID;

   function Get_nodeType
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_nodeType);
   end Get_nodeType;

   function Get_parentNode
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_parentNode);
   end Get_parentNode;

   function hasChildNodes
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, DispHTMLEmbed_hasChildNodes);
   end hasChildNodes;

   function Get_childNodes
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_childNodes);
   end Get_childNodes;

   function Get_attributes
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_attributes);
   end Get_attributes;

   function insertBefore
     (This     : DispHTMLEmbed_Type;
      newChild : GNATCOM.Types.VARIANT;
      refChild : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_insertBefore,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => refChild,
          2 => newChild),
         Free);
   end insertBefore;

   function removeChild
     (This     : DispHTMLEmbed_Type;
      oldChild : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_removeChild,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => oldChild),
         Free);
   end removeChild;

   function replaceChild
     (This     : DispHTMLEmbed_Type;
      newChild : GNATCOM.Types.VARIANT;
      oldChild : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_replaceChild,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => oldChild,
          2 => newChild),
         Free);
   end replaceChild;

   function cloneNode
     (This  : DispHTMLEmbed_Type;
      fDeep : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_cloneNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => fDeep),
         Free);
   end cloneNode;

   function removeNode
     (This  : DispHTMLEmbed_Type;
      fDeep : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_removeNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => fDeep),
         Free);
   end removeNode;

   function swapNode
     (This      : DispHTMLEmbed_Type;
      otherNode : GNATCOM.Types.VARIANT;
      Free      : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_swapNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => otherNode),
         Free);
   end swapNode;

   function replaceNode
     (This        : DispHTMLEmbed_Type;
      replacement : GNATCOM.Types.VARIANT;
      Free        : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_replaceNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => replacement),
         Free);
   end replaceNode;

   function appendChild
     (This     : DispHTMLEmbed_Type;
      newChild : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_appendChild,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => newChild),
         Free);
   end appendChild;

   function Get_nodeName
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_nodeName);
   end Get_nodeName;

   procedure Put_nodeValue
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_nodeValue,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_nodeValue;

   function Get_nodeValue
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_nodeValue);
   end Get_nodeValue;

   function Get_firstChild
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_firstChild);
   end Get_firstChild;

   function Get_lastChild
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_lastChild);
   end Get_lastChild;

   function Get_previousSibling
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_previousSibling);
   end Get_previousSibling;

   function Get_nextSibling
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_nextSibling);
   end Get_nextSibling;

   function Get_ownerDocument
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ownerDocument);
   end Get_ownerDocument;

   function ie8_getAttributeNode
     (This     : DispHTMLEmbed_Type;
      bstrName : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_ie8_getAttributeNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrName),
         Free);
   end ie8_getAttributeNode;

   function ie8_setAttributeNode
     (This  : DispHTMLEmbed_Type;
      pattr : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_ie8_setAttributeNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pattr),
         Free);
   end ie8_setAttributeNode;

   function ie8_removeAttributeNode
     (This  : DispHTMLEmbed_Type;
      pattr : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_ie8_removeAttributeNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pattr),
         Free);
   end ie8_removeAttributeNode;

   function hasAttribute
     (This : DispHTMLEmbed_Type;
      name : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_hasAttribute,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => name),
         Free);
   end hasAttribute;

   procedure Put_role
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_role,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_role;

   function Get_role
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_role);
   end Get_role;

   procedure Put_ariaBusy
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaBusy,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaBusy;

   function Get_ariaBusy
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaBusy);
   end Get_ariaBusy;

   procedure Put_ariaChecked
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaChecked,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaChecked;

   function Get_ariaChecked
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaChecked);
   end Get_ariaChecked;

   procedure Put_ariaDisabled
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaDisabled,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaDisabled;

   function Get_ariaDisabled
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaDisabled);
   end Get_ariaDisabled;

   procedure Put_ariaExpanded
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaExpanded,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaExpanded;

   function Get_ariaExpanded
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaExpanded);
   end Get_ariaExpanded;

   procedure Put_ariaHaspopup
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaHaspopup,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaHaspopup;

   function Get_ariaHaspopup
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaHaspopup);
   end Get_ariaHaspopup;

   procedure Put_ariaHidden
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaHidden,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaHidden;

   function Get_ariaHidden
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaHidden);
   end Get_ariaHidden;

   procedure Put_ariaInvalid
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaInvalid,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaInvalid;

   function Get_ariaInvalid
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaInvalid);
   end Get_ariaInvalid;

   procedure Put_ariaMultiselectable
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaMultiselectable,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaMultiselectable;

   function Get_ariaMultiselectable
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaMultiselectable);
   end Get_ariaMultiselectable;

   procedure Put_ariaPressed
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaPressed,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaPressed;

   function Get_ariaPressed
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaPressed);
   end Get_ariaPressed;

   procedure Put_ariaReadonly
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaReadonly,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaReadonly;

   function Get_ariaReadonly
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaReadonly);
   end Get_ariaReadonly;

   procedure Put_ariaRequired
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaRequired,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaRequired;

   function Get_ariaRequired
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaRequired);
   end Get_ariaRequired;

   procedure Put_ariaSecret
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaSecret,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaSecret;

   function Get_ariaSecret
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaSecret);
   end Get_ariaSecret;

   procedure Put_ariaSelected
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaSelected,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaSelected;

   function Get_ariaSelected
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaSelected);
   end Get_ariaSelected;

   function ie8_getAttribute
     (This             : DispHTMLEmbed_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_ie8_getAttribute,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => strAttributeName),
         Free);
   end ie8_getAttribute;

   procedure ie8_setAttribute
     (This             : DispHTMLEmbed_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      AttributeValue   : GNATCOM.Types.VARIANT;
      Free             : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLEmbed_ie8_setAttribute,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => AttributeValue,
          2 => strAttributeName),
         Free);
   end ie8_setAttribute;

   function ie8_removeAttribute
     (This             : DispHTMLEmbed_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_ie8_removeAttribute,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => strAttributeName),
         Free);
   end ie8_removeAttribute;

   function Get_ie8_attributes
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ie8_attributes);
   end Get_ie8_attributes;

   procedure Put_ariaValuenow
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaValuenow,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaValuenow;

   function Get_ariaValuenow
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaValuenow);
   end Get_ariaValuenow;

   procedure Put_ariaPosinset
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaPosinset,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaPosinset;

   function Get_ariaPosinset
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaPosinset);
   end Get_ariaPosinset;

   procedure Put_ariaSetsize
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaSetsize,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaSetsize;

   function Get_ariaSetsize
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaSetsize);
   end Get_ariaSetsize;

   procedure Put_ariaLevel
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaLevel,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaLevel;

   function Get_ariaLevel
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaLevel);
   end Get_ariaLevel;

   procedure Put_ariaValuemin
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaValuemin,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaValuemin;

   function Get_ariaValuemin
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaValuemin);
   end Get_ariaValuemin;

   procedure Put_ariaValuemax
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaValuemax,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaValuemax;

   function Get_ariaValuemax
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaValuemax);
   end Get_ariaValuemax;

   procedure Put_ariaControls
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaControls,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaControls;

   function Get_ariaControls
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaControls);
   end Get_ariaControls;

   procedure Put_ariaDescribedby
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaDescribedby,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaDescribedby;

   function Get_ariaDescribedby
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaDescribedby);
   end Get_ariaDescribedby;

   procedure Put_ariaFlowto
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaFlowto,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaFlowto;

   function Get_ariaFlowto
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaFlowto);
   end Get_ariaFlowto;

   procedure Put_ariaLabelledby
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaLabelledby,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaLabelledby;

   function Get_ariaLabelledby
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaLabelledby);
   end Get_ariaLabelledby;

   procedure Put_ariaActivedescendant
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaActivedescendant,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaActivedescendant;

   function Get_ariaActivedescendant
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaActivedescendant);
   end Get_ariaActivedescendant;

   procedure Put_ariaOwns
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaOwns,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaOwns;

   function Get_ariaOwns
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaOwns);
   end Get_ariaOwns;

   function hasAttributes
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, DispHTMLEmbed_hasAttributes);
   end hasAttributes;

   procedure Put_ariaLive
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaLive,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaLive;

   function Get_ariaLive
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaLive);
   end Get_ariaLive;

   procedure Put_ariaRelevant
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ariaRelevant,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ariaRelevant;

   function Get_ariaRelevant
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ariaRelevant);
   end Get_ariaRelevant;

   function getAttributeNS
     (This             : DispHTMLEmbed_Type;
      pvarNS           : GNATCOM.Types.VARIANT;
      strAttributeName : GNATCOM.Types.VARIANT;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_getAttributeNS,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => strAttributeName,
          2 => pvarNS),
         Free);
   end getAttributeNS;

   procedure setAttributeNS
     (This               : DispHTMLEmbed_Type;
      pvarNS             : GNATCOM.Types.VARIANT;
      strAttributeName   : GNATCOM.Types.VARIANT;
      pvarAttributeValue : GNATCOM.Types.VARIANT;
      Free               : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLEmbed_setAttributeNS,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pvarAttributeValue,
          2 => strAttributeName,
          3 => pvarNS),
         Free);
   end setAttributeNS;

   procedure removeAttributeNS
     (This             : DispHTMLEmbed_Type;
      pvarNS           : GNATCOM.Types.VARIANT;
      strAttributeName : GNATCOM.Types.VARIANT;
      Free             : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLEmbed_removeAttributeNS,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => strAttributeName,
          2 => pvarNS),
         Free);
   end removeAttributeNS;

   function getAttributeNodeNS
     (This     : DispHTMLEmbed_Type;
      pvarNS   : GNATCOM.Types.VARIANT;
      bstrName : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_getAttributeNodeNS,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrName,
          2 => pvarNS),
         Free);
   end getAttributeNodeNS;

   function setAttributeNodeNS
     (This  : DispHTMLEmbed_Type;
      pattr : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_setAttributeNodeNS,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pattr),
         Free);
   end setAttributeNodeNS;

   function hasAttributeNS
     (This   : DispHTMLEmbed_Type;
      pvarNS : GNATCOM.Types.VARIANT;
      name   : GNATCOM.Types.VARIANT;
      Free   : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_hasAttributeNS,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => name,
          2 => pvarNS),
         Free);
   end hasAttributeNS;

   function ie9_getAttribute
     (This             : DispHTMLEmbed_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_ie9_getAttribute,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => strAttributeName),
         Free);
   end ie9_getAttribute;

   procedure ie9_setAttribute
     (This               : DispHTMLEmbed_Type;
      strAttributeName   : GNATCOM.Types.VARIANT;
      pvarAttributeValue : GNATCOM.Types.VARIANT;
      Free               : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLEmbed_ie9_setAttribute,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pvarAttributeValue,
          2 => strAttributeName),
         Free);
   end ie9_setAttribute;

   procedure ie9_removeAttribute
     (This             : DispHTMLEmbed_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      Free             : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLEmbed_ie9_removeAttribute,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => strAttributeName),
         Free);
   end ie9_removeAttribute;

   function ie9_getAttributeNode
     (This             : DispHTMLEmbed_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_ie9_getAttributeNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => strAttributeName),
         Free);
   end ie9_getAttributeNode;

   function ie9_setAttributeNode
     (This  : DispHTMLEmbed_Type;
      pattr : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_ie9_setAttributeNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pattr),
         Free);
   end ie9_setAttributeNode;

   function ie9_removeAttributeNode
     (This  : DispHTMLEmbed_Type;
      pattr : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_ie9_removeAttributeNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pattr),
         Free);
   end ie9_removeAttributeNode;

   function ie9_hasAttribute
     (This : DispHTMLEmbed_Type;
      name : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_ie9_hasAttribute,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => name),
         Free);
   end ie9_hasAttribute;

   function getElementsByTagNameNS
     (This          : DispHTMLEmbed_Type;
      varNS         : GNATCOM.Types.VARIANT;
      bstrLocalName : GNATCOM.Types.VARIANT;
      Free          : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_getElementsByTagNameNS,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrLocalName,
          2 => varNS),
         Free);
   end getElementsByTagNameNS;

   function Get_ie9_tagName
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ie9_tagName);
   end Get_ie9_tagName;

   function Get_ie9_nodeName
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ie9_nodeName);
   end Get_ie9_nodeName;

   function getElementsByClassName
     (This : DispHTMLEmbed_Type;
      v    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_getElementsByClassName,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => v),
         Free);
   end getElementsByClassName;

   function msMatchesSelector
     (This : DispHTMLEmbed_Type;
      v    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLEmbed_msMatchesSelector,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => v),
         Free);
   end msMatchesSelector;

   procedure Put_onabort
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onabort,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onabort;

   function Get_onabort
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onabort);
   end Get_onabort;

   procedure Put_oncanplay
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_oncanplay,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_oncanplay;

   function Get_oncanplay
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_oncanplay);
   end Get_oncanplay;

   procedure Put_oncanplaythrough
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_oncanplaythrough,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_oncanplaythrough;

   function Get_oncanplaythrough
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_oncanplaythrough);
   end Get_oncanplaythrough;

   procedure Put_onchange
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onchange,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onchange;

   function Get_onchange
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onchange);
   end Get_onchange;

   procedure Put_ondurationchange
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ondurationchange,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ondurationchange;

   function Get_ondurationchange
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ondurationchange);
   end Get_ondurationchange;

   procedure Put_onemptied
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onemptied,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onemptied;

   function Get_onemptied
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onemptied);
   end Get_onemptied;

   procedure Put_onended
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onended,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onended;

   function Get_onended
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onended);
   end Get_onended;

   procedure Put_onerror
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onerror,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onerror;

   function Get_onerror
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onerror);
   end Get_onerror;

   procedure Put_oninput
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_oninput,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_oninput;

   function Get_oninput
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_oninput);
   end Get_oninput;

   procedure Put_onload
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onload,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onload;

   function Get_onload
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onload);
   end Get_onload;

   procedure Put_onloadeddata
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onloadeddata,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onloadeddata;

   function Get_onloadeddata
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onloadeddata);
   end Get_onloadeddata;

   procedure Put_onloadedmetadata
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onloadedmetadata,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onloadedmetadata;

   function Get_onloadedmetadata
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onloadedmetadata);
   end Get_onloadedmetadata;

   procedure Put_onloadstart
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onloadstart,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onloadstart;

   function Get_onloadstart
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onloadstart);
   end Get_onloadstart;

   procedure Put_onpause
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onpause,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onpause;

   function Get_onpause
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onpause);
   end Get_onpause;

   procedure Put_onplay
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onplay,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onplay;

   function Get_onplay
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onplay);
   end Get_onplay;

   procedure Put_onplaying
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onplaying,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onplaying;

   function Get_onplaying
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onplaying);
   end Get_onplaying;

   procedure Put_onprogress
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onprogress,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onprogress;

   function Get_onprogress
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onprogress);
   end Get_onprogress;

   procedure Put_onratechange
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onratechange,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onratechange;

   function Get_onratechange
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onratechange);
   end Get_onratechange;

   procedure Put_onreset
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onreset,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onreset;

   function Get_onreset
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onreset);
   end Get_onreset;

   procedure Put_onseeked
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onseeked,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onseeked;

   function Get_onseeked
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onseeked);
   end Get_onseeked;

   procedure Put_onseeking
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onseeking,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onseeking;

   function Get_onseeking
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onseeking);
   end Get_onseeking;

   procedure Put_onselect
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onselect,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onselect;

   function Get_onselect
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onselect);
   end Get_onselect;

   procedure Put_onstalled
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onstalled,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onstalled;

   function Get_onstalled
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onstalled);
   end Get_onstalled;

   procedure Put_onsubmit
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onsubmit,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onsubmit;

   function Get_onsubmit
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onsubmit);
   end Get_onsubmit;

   procedure Put_onsuspend
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onsuspend,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onsuspend;

   function Get_onsuspend
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onsuspend);
   end Get_onsuspend;

   procedure Put_ontimeupdate
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ontimeupdate,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ontimeupdate;

   function Get_ontimeupdate
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ontimeupdate);
   end Get_ontimeupdate;

   procedure Put_onvolumechange
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onvolumechange,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onvolumechange;

   function Get_onvolumechange
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onvolumechange);
   end Get_onvolumechange;

   procedure Put_onwaiting
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onwaiting,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onwaiting;

   function Get_onwaiting
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onwaiting);
   end Get_onwaiting;

   function ie9_hasAttributes
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, DispHTMLEmbed_ie9_hasAttributes);
   end ie9_hasAttributes;

   function Get_constructor
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_constructor);
   end Get_constructor;

   procedure Put_onmspointerdown
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmspointerdown,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmspointerdown;

   function Get_onmspointerdown
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmspointerdown);
   end Get_onmspointerdown;

   procedure Put_onmspointermove
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmspointermove,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmspointermove;

   function Get_onmspointermove
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmspointermove);
   end Get_onmspointermove;

   procedure Put_onmspointerup
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmspointerup,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmspointerup;

   function Get_onmspointerup
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmspointerup);
   end Get_onmspointerup;

   procedure Put_onmspointerover
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmspointerover,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmspointerover;

   function Get_onmspointerover
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmspointerover);
   end Get_onmspointerover;

   procedure Put_onmspointerout
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmspointerout,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmspointerout;

   function Get_onmspointerout
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmspointerout);
   end Get_onmspointerout;

   procedure Put_onmspointercancel
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmspointercancel,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmspointercancel;

   function Get_onmspointercancel
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmspointercancel);
   end Get_onmspointercancel;

   procedure Put_onmspointerhover
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmspointerhover,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmspointerhover;

   function Get_onmspointerhover
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmspointerhover);
   end Get_onmspointerhover;

   procedure Put_onmslostpointercapture
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmslostpointercapture,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmslostpointercapture;

   function Get_onmslostpointercapture
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmslostpointercapture);
   end Get_onmslostpointercapture;

   procedure Put_onmsgotpointercapture
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmsgotpointercapture,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmsgotpointercapture;

   function Get_onmsgotpointercapture
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmsgotpointercapture);
   end Get_onmsgotpointercapture;

   procedure Put_onmsgesturestart
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmsgesturestart,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmsgesturestart;

   function Get_onmsgesturestart
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmsgesturestart);
   end Get_onmsgesturestart;

   procedure Put_onmsgesturechange
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmsgesturechange,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmsgesturechange;

   function Get_onmsgesturechange
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmsgesturechange);
   end Get_onmsgesturechange;

   procedure Put_onmsgestureend
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmsgestureend,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmsgestureend;

   function Get_onmsgestureend
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmsgestureend);
   end Get_onmsgestureend;

   procedure Put_onmsgesturehold
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmsgesturehold,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmsgesturehold;

   function Get_onmsgesturehold
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmsgesturehold);
   end Get_onmsgesturehold;

   procedure Put_onmsgesturetap
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmsgesturetap,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmsgesturetap;

   function Get_onmsgesturetap
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmsgesturetap);
   end Get_onmsgesturetap;

   procedure Put_onmsgesturedoubletap
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmsgesturedoubletap,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmsgesturedoubletap;

   function Get_onmsgesturedoubletap
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmsgesturedoubletap);
   end Get_onmsgesturedoubletap;

   procedure Put_onmsinertiastart
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmsinertiastart,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmsinertiastart;

   function Get_onmsinertiastart
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmsinertiastart);
   end Get_onmsinertiastart;

   procedure msSetPointerCapture
     (This      : DispHTMLEmbed_Type;
      pointerId : GNATCOM.Types.VARIANT;
      Free      : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLEmbed_msSetPointerCapture,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pointerId),
         Free);
   end msSetPointerCapture;

   procedure msReleasePointerCapture
     (This      : DispHTMLEmbed_Type;
      pointerId : GNATCOM.Types.VARIANT;
      Free      : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLEmbed_msReleasePointerCapture,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pointerId),
         Free);
   end msReleasePointerCapture;

   procedure Put_onmstransitionstart
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmstransitionstart,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmstransitionstart;

   function Get_onmstransitionstart
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmstransitionstart);
   end Get_onmstransitionstart;

   procedure Put_onmstransitionend
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmstransitionend,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmstransitionend;

   function Get_onmstransitionend
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmstransitionend);
   end Get_onmstransitionend;

   procedure Put_onmsanimationstart
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmsanimationstart,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmsanimationstart;

   function Get_onmsanimationstart
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmsanimationstart);
   end Get_onmsanimationstart;

   procedure Put_onmsanimationend
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmsanimationend,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmsanimationend;

   function Get_onmsanimationend
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmsanimationend);
   end Get_onmsanimationend;

   procedure Put_onmsanimationiteration
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmsanimationiteration,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmsanimationiteration;

   function Get_onmsanimationiteration
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmsanimationiteration);
   end Get_onmsanimationiteration;

   procedure Put_oninvalid
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_oninvalid,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_oninvalid;

   function Get_oninvalid
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_oninvalid);
   end Get_oninvalid;

   procedure Put_xmsAcceleratorKey
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_xmsAcceleratorKey,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_xmsAcceleratorKey;

   function Get_xmsAcceleratorKey
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_xmsAcceleratorKey);
   end Get_xmsAcceleratorKey;

   procedure Put_spellcheck
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_spellcheck,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_spellcheck;

   function Get_spellcheck
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_spellcheck);
   end Get_spellcheck;

   procedure Put_onmsmanipulationstatechanged
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_onmsmanipulationstatechanged,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmsmanipulationstatechanged;

   function Get_onmsmanipulationstatechanged
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_onmsmanipulationstatechanged);
   end Get_onmsmanipulationstatechanged;

   procedure Put_oncuechange
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_oncuechange,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_oncuechange;

   function Get_oncuechange
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_oncuechange);
   end Get_oncuechange;

   procedure Put_hidden
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_hidden,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_hidden;

   function Get_hidden
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_hidden);
   end Get_hidden;

   function Get_palette
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_palette);
   end Get_palette;

   function Get_pluginspage
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_pluginspage);
   end Get_pluginspage;

   procedure Put_src
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_src,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_src;

   function Get_src
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_src);
   end Get_src;

   procedure Put_units
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_units,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_units;

   function Get_units
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_units);
   end Get_units;

   procedure Put_name
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_name,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_name;

   function Get_name
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_name);
   end Get_name;

   procedure Put_width
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_width,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_width;

   function Get_width
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_width);
   end Get_width;

   procedure Put_height
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_height,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_height;

   function Get_height
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_height);
   end Get_height;

   procedure Put_ie8_src
     (This : DispHTMLEmbed_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispHTMLEmbed_Put_ie8_src,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ie8_src;

   function Get_ie8_src
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ie8_src);
   end Get_ie8_src;

   function Get_ie8_pluginspage
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLEmbed_Get_ie8_pluginspage);
   end Get_ie8_pluginspage;

   function getSVGDocument
     (This : DispHTMLEmbed_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, DispHTMLEmbed_getSVGDocument);
   end getSVGDocument;

end MSHTML.DispHTMLEmbed_Object;

