with GNATCOM.Dispinterface;

package MSHTML.DispHTMLBody_Object is

   type DispHTMLBody_Type is
     new GNATCOM.Dispinterface.Dispinterface_Type with null record;

   procedure setAttribute
     (This             : DispHTMLBody_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      AttributeValue   : GNATCOM.Types.VARIANT;
      lFlags           : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free             : Boolean := True);

   function getAttribute
     (This             : DispHTMLBody_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      lFlags           : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function removeAttribute
     (This             : DispHTMLBody_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      lFlags           : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT;

   procedure Put_className
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_className
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_id
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_id
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_tagName
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_parentElement
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_style
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onhelp
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onhelp
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onclick
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onclick
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ondblclick
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ondblclick
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onkeydown
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onkeydown
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onkeyup
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onkeyup
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onkeypress
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onkeypress
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmouseout
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmouseout
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmouseover
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmouseover
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmousemove
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmousemove
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmousedown
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmousedown
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmouseup
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmouseup
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_document
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_title
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_title
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_language
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_language
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onselectstart
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onselectstart
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure scrollIntoView
     (This        : DispHTMLBody_Type;
      varargStart : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free        : Boolean := True);

   function contains
     (This   : DispHTMLBody_Type;
      pChild : GNATCOM.Types.VARIANT;
      Free   : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function Get_sourceIndex
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_recordNumber
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_lang
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_lang
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_offsetLeft
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_offsetTop
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_offsetWidth
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_offsetHeight
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_offsetParent
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_innerHTML
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_innerHTML
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_innerText
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_innerText
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_outerHTML
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_outerHTML
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_outerText
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_outerText
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure insertAdjacentHTML
     (This  : DispHTMLBody_Type;
      where : GNATCOM.Types.VARIANT;
      html  : GNATCOM.Types.VARIANT;
      Free  : Boolean := True);

   procedure insertAdjacentText
     (This  : DispHTMLBody_Type;
      where : GNATCOM.Types.VARIANT;
      text  : GNATCOM.Types.VARIANT;
      Free  : Boolean := True);

   function Get_parentTextEdit
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_isTextEdit
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure click
     (This : DispHTMLBody_Type);

   function Get_filters
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ondragstart
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ondragstart
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function toString
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onbeforeupdate
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onbeforeupdate
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onafterupdate
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onafterupdate
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onerrorupdate
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onerrorupdate
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onrowexit
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onrowexit
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onrowenter
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onrowenter
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ondatasetchanged
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ondatasetchanged
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ondataavailable
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ondataavailable
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ondatasetcomplete
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ondatasetcomplete
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onfilterchange
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onfilterchange
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_children
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_all
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_scopeName
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure setCapture
     (This             : DispHTMLBody_Type;
      containerCapture : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free             : Boolean := True);

   procedure releaseCapture
     (This : DispHTMLBody_Type);

   procedure Put_onlosecapture
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onlosecapture
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function componentFromPoint
     (This : DispHTMLBody_Type;
      x    : GNATCOM.Types.VARIANT;
      y    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
     return GNATCOM.Types.VARIANT;

   procedure doScroll
     (This      : DispHTMLBody_Type;
      component : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free      : Boolean := True);

   procedure Put_onscroll
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onscroll
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ondrag
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ondrag
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ondragend
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ondragend
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ondragenter
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ondragenter
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ondragover
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ondragover
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ondragleave
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ondragleave
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ondrop
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ondrop
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onbeforecut
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onbeforecut
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_oncut
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_oncut
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onbeforecopy
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onbeforecopy
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_oncopy
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_oncopy
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onbeforepaste
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onbeforepaste
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onpaste
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onpaste
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_currentStyle
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onpropertychange
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onpropertychange
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function getClientRects
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function getBoundingClientRect
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure setExpression
     (This       : DispHTMLBody_Type;
      propname   : GNATCOM.Types.VARIANT;
      expression : GNATCOM.Types.VARIANT;
      language   : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free       : Boolean := True);

   function getExpression
     (This     : DispHTMLBody_Type;
      propname : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function removeExpression
     (This     : DispHTMLBody_Type;
      propname : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT;

   procedure Put_tabIndex
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_tabIndex
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure focus
     (This : DispHTMLBody_Type);

   procedure Put_accessKey
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_accessKey
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onblur
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onblur
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onfocus
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onfocus
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onresize
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onresize
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure blur
     (This : DispHTMLBody_Type);

   procedure addFilter
     (This : DispHTMLBody_Type;
      pUnk : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   procedure removeFilter
     (This : DispHTMLBody_Type;
      pUnk : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_clientHeight
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_clientWidth
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_clientTop
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_clientLeft
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function attachEvent
     (This  : DispHTMLBody_Type;
      event : GNATCOM.Types.VARIANT;
      pdisp : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT;

   procedure detachEvent
     (This  : DispHTMLBody_Type;
      event : GNATCOM.Types.VARIANT;
      pdisp : GNATCOM.Types.VARIANT;
      Free  : Boolean := True);

   function Get_readyState
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onreadystatechange
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onreadystatechange
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onrowsdelete
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onrowsdelete
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onrowsinserted
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onrowsinserted
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_oncellchange
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_oncellchange
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_dir
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_dir
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function createControlRange
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_scrollHeight
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_scrollWidth
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_scrollTop
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_scrollTop
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_scrollLeft
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_scrollLeft
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure clearAttributes
     (This : DispHTMLBody_Type);

   procedure Put_oncontextmenu
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_oncontextmenu
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function insertAdjacentElement
     (This            : DispHTMLBody_Type;
      where           : GNATCOM.Types.VARIANT;
      insertedElement : GNATCOM.Types.VARIANT;
      Free            : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function applyElement
     (This  : DispHTMLBody_Type;
      apply : GNATCOM.Types.VARIANT;
      where : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function getAdjacentText
     (This  : DispHTMLBody_Type;
      where : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function replaceAdjacentText
     (This    : DispHTMLBody_Type;
      where   : GNATCOM.Types.VARIANT;
      newText : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function Get_canHaveChildren
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function addBehavior
     (This        : DispHTMLBody_Type;
      bstrURL     : GNATCOM.Types.VARIANT;
      pvarFactory : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free        : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function removeBehavior
     (This   : DispHTMLBody_Type;
      cookie : GNATCOM.Types.VARIANT;
      Free   : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function Get_runtimeStyle
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_behaviorUrns
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_tagUrn
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_tagUrn
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onbeforeeditfocus
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onbeforeeditfocus
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_readyStateValue
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function getElementsByTagName
     (This : DispHTMLBody_Type;
      v    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
     return GNATCOM.Types.VARIANT;

   procedure mergeAttributes
     (This      : DispHTMLBody_Type;
      mergeThis : GNATCOM.Types.VARIANT;
      pvarFlags : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free      : Boolean := True);

   function Get_isMultiLine
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_canHaveHTML
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onlayoutcomplete
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onlayoutcomplete
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onpage
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onpage
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_inflateBlock
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_inflateBlock
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onbeforedeactivate
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onbeforedeactivate
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure setActive
     (This : DispHTMLBody_Type);

   procedure Put_contentEditable
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_contentEditable
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_isContentEditable
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_hideFocus
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_hideFocus
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_disabled
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_disabled
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_isDisabled
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmove
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmove
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_oncontrolselect
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_oncontrolselect
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function FireEvent
     (This            : DispHTMLBody_Type;
      bstrEventName   : GNATCOM.Types.VARIANT;
      pvarEventObject : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free            : Boolean := True)
     return GNATCOM.Types.VARIANT;

   procedure Put_onresizestart
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onresizestart
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onresizeend
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onresizeend
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmovestart
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmovestart
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmoveend
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmoveend
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmouseenter
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmouseenter
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmouseleave
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmouseleave
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onactivate
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onactivate
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ondeactivate
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ondeactivate
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function dragDrop
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_glyphMode
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmousewheel
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmousewheel
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure normalize
     (This : DispHTMLBody_Type);

   function getAttributeNode
     (This     : DispHTMLBody_Type;
      bstrName : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function setAttributeNode
     (This  : DispHTMLBody_Type;
      pattr : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function removeAttributeNode
     (This  : DispHTMLBody_Type;
      pattr : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT;

   procedure Put_onbeforeactivate
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onbeforeactivate
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onfocusin
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onfocusin
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onfocusout
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onfocusout
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_uniqueNumber
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_uniqueID
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_nodeType
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_parentNode
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function hasChildNodes
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_childNodes
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_attributes
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function insertBefore
     (This     : DispHTMLBody_Type;
      newChild : GNATCOM.Types.VARIANT;
      refChild : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function removeChild
     (This     : DispHTMLBody_Type;
      oldChild : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function replaceChild
     (This     : DispHTMLBody_Type;
      newChild : GNATCOM.Types.VARIANT;
      oldChild : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function cloneNode
     (This  : DispHTMLBody_Type;
      fDeep : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function removeNode
     (This  : DispHTMLBody_Type;
      fDeep : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function swapNode
     (This      : DispHTMLBody_Type;
      otherNode : GNATCOM.Types.VARIANT;
      Free      : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function replaceNode
     (This        : DispHTMLBody_Type;
      replacement : GNATCOM.Types.VARIANT;
      Free        : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function appendChild
     (This     : DispHTMLBody_Type;
      newChild : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function Get_nodeName
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_nodeValue
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_nodeValue
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_firstChild
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_lastChild
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_previousSibling
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_nextSibling
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_ownerDocument
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function ie8_getAttributeNode
     (This     : DispHTMLBody_Type;
      bstrName : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function ie8_setAttributeNode
     (This  : DispHTMLBody_Type;
      pattr : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function ie8_removeAttributeNode
     (This  : DispHTMLBody_Type;
      pattr : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function hasAttribute
     (This : DispHTMLBody_Type;
      name : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
     return GNATCOM.Types.VARIANT;

   procedure Put_role
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_role
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaBusy
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaBusy
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaChecked
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaChecked
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaDisabled
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaDisabled
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaExpanded
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaExpanded
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaHaspopup
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaHaspopup
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaHidden
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaHidden
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaInvalid
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaInvalid
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaMultiselectable
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaMultiselectable
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaPressed
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaPressed
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaReadonly
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaReadonly
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaRequired
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaRequired
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaSecret
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaSecret
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaSelected
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaSelected
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function ie8_getAttribute
     (This             : DispHTMLBody_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT;

   procedure ie8_setAttribute
     (This             : DispHTMLBody_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      AttributeValue   : GNATCOM.Types.VARIANT;
      Free             : Boolean := True);

   function ie8_removeAttribute
     (This             : DispHTMLBody_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function Get_ie8_attributes
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaValuenow
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaValuenow
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaPosinset
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaPosinset
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaSetsize
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaSetsize
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaLevel
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaLevel
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaValuemin
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaValuemin
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaValuemax
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaValuemax
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaControls
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaControls
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaDescribedby
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaDescribedby
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaFlowto
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaFlowto
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaLabelledby
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaLabelledby
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaActivedescendant
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaActivedescendant
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaOwns
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaOwns
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function hasAttributes
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaLive
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaLive
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ariaRelevant
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ariaRelevant
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function getAttributeNS
     (This             : DispHTMLBody_Type;
      pvarNS           : GNATCOM.Types.VARIANT;
      strAttributeName : GNATCOM.Types.VARIANT;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT;

   procedure setAttributeNS
     (This               : DispHTMLBody_Type;
      pvarNS             : GNATCOM.Types.VARIANT;
      strAttributeName   : GNATCOM.Types.VARIANT;
      pvarAttributeValue : GNATCOM.Types.VARIANT;
      Free               : Boolean := True);

   procedure removeAttributeNS
     (This             : DispHTMLBody_Type;
      pvarNS           : GNATCOM.Types.VARIANT;
      strAttributeName : GNATCOM.Types.VARIANT;
      Free             : Boolean := True);

   function getAttributeNodeNS
     (This     : DispHTMLBody_Type;
      pvarNS   : GNATCOM.Types.VARIANT;
      bstrName : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function setAttributeNodeNS
     (This  : DispHTMLBody_Type;
      pattr : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function hasAttributeNS
     (This   : DispHTMLBody_Type;
      pvarNS : GNATCOM.Types.VARIANT;
      name   : GNATCOM.Types.VARIANT;
      Free   : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function ie9_getAttribute
     (This             : DispHTMLBody_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT;

   procedure ie9_setAttribute
     (This               : DispHTMLBody_Type;
      strAttributeName   : GNATCOM.Types.VARIANT;
      pvarAttributeValue : GNATCOM.Types.VARIANT;
      Free               : Boolean := True);

   procedure ie9_removeAttribute
     (This             : DispHTMLBody_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      Free             : Boolean := True);

   function ie9_getAttributeNode
     (This             : DispHTMLBody_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function ie9_setAttributeNode
     (This  : DispHTMLBody_Type;
      pattr : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function ie9_removeAttributeNode
     (This  : DispHTMLBody_Type;
      pattr : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function ie9_hasAttribute
     (This : DispHTMLBody_Type;
      name : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function getElementsByTagNameNS
     (This          : DispHTMLBody_Type;
      varNS         : GNATCOM.Types.VARIANT;
      bstrLocalName : GNATCOM.Types.VARIANT;
      Free          : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function Get_ie9_tagName
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_ie9_nodeName
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function getElementsByClassName
     (This : DispHTMLBody_Type;
      v    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function msMatchesSelector
     (This : DispHTMLBody_Type;
      v    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
     return GNATCOM.Types.VARIANT;

   procedure Put_onabort
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onabort
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_oncanplay
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_oncanplay
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_oncanplaythrough
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_oncanplaythrough
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onchange
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onchange
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ondurationchange
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ondurationchange
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onemptied
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onemptied
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onended
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onended
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onerror
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onerror
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_oninput
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_oninput
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onload
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onload
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onloadeddata
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onloadeddata
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onloadedmetadata
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onloadedmetadata
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onloadstart
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onloadstart
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onpause
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onpause
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onplay
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onplay
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onplaying
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onplaying
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onprogress
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onprogress
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onratechange
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onratechange
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onreset
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onreset
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onseeked
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onseeked
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onseeking
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onseeking
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onselect
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onselect
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onstalled
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onstalled
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onsubmit
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onsubmit
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onsuspend
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onsuspend
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ontimeupdate
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ontimeupdate
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onvolumechange
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onvolumechange
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onwaiting
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onwaiting
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function ie9_hasAttributes
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function Get_constructor
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmspointerdown
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmspointerdown
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmspointermove
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmspointermove
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmspointerup
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmspointerup
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmspointerover
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmspointerover
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmspointerout
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmspointerout
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmspointercancel
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmspointercancel
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmspointerhover
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmspointerhover
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmslostpointercapture
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmslostpointercapture
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmsgotpointercapture
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmsgotpointercapture
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmsgesturestart
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmsgesturestart
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmsgesturechange
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmsgesturechange
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmsgestureend
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmsgestureend
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmsgesturehold
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmsgesturehold
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmsgesturetap
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmsgesturetap
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmsgesturedoubletap
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmsgesturedoubletap
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmsinertiastart
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmsinertiastart
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure msSetPointerCapture
     (This      : DispHTMLBody_Type;
      pointerId : GNATCOM.Types.VARIANT;
      Free      : Boolean := True);

   procedure msReleasePointerCapture
     (This      : DispHTMLBody_Type;
      pointerId : GNATCOM.Types.VARIANT;
      Free      : Boolean := True);

   procedure Put_onmstransitionstart
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmstransitionstart
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmstransitionend
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmstransitionend
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmsanimationstart
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmsanimationstart
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmsanimationend
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmsanimationend
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmsanimationiteration
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmsanimationiteration
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_oninvalid
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_oninvalid
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_xmsAcceleratorKey
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_xmsAcceleratorKey
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_spellcheck
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_spellcheck
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmsmanipulationstatechanged
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmsmanipulationstatechanged
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_oncuechange
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_oncuechange
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_background
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_background
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_bgProperties
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_bgProperties
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_leftMargin
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_leftMargin
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_topMargin
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_topMargin
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_rightMargin
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_rightMargin
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_bottomMargin
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_bottomMargin
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_noWrap
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_noWrap
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_bgColor
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_bgColor
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_text
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_text
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_link
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_link
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_vLink
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_vLink
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_aLink
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_aLink
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onunload
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onunload
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_scroll
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_scroll
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onbeforeunload
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onbeforeunload
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   function createTextRange
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onbeforeprint
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onbeforeprint
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onafterprint
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onafterprint
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ie8_background
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ie8_background
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_ononline
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_ononline
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onoffline
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onoffline
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onhashchange
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onhashchange
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onmessage
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmessage
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onstorage
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onstorage
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onpopstate
     (This : DispHTMLBody_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onpopstate
     (This : DispHTMLBody_Type)
     return GNATCOM.Types.VARIANT;

end MSHTML.DispHTMLBody_Object;

