package body MSHTML.DispNodeIterator_Object is

   function Get_root
     (This : DispNodeIterator_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispNodeIterator_Get_root);
   end Get_root;

   function Get_whatToShow
     (This : DispNodeIterator_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispNodeIterator_Get_whatToShow);
   end Get_whatToShow;

   function Get_filter
     (This : DispNodeIterator_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispNodeIterator_Get_filter);
   end Get_filter;

   function Get_expandEntityReferences
     (This : DispNodeIterator_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispNodeIterator_Get_expandEntityReferences);
   end Get_expandEntityReferences;

   function nextNode
     (This : DispNodeIterator_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, DispNodeIterator_nextNode);
   end nextNode;

   function previousNode
     (This : DispNodeIterator_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, DispNodeIterator_previousNode);
   end previousNode;

   procedure Detach
     (This : DispNodeIterator_Type)
   is
   begin
      Invoke (This, DispNodeIterator_Detach);
   end Detach;

end MSHTML.DispNodeIterator_Object;

