package body MSHTML.IHTMLSelectionObject_Object is

   function createRange
     (This : IHTMLSelectionObject_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, IHTMLSelectionObject_createRange);
   end createRange;

   procedure empty
     (This : IHTMLSelectionObject_Type)
   is
   begin
      Invoke (This, IHTMLSelectionObject_empty);
   end empty;

   procedure clear
     (This : IHTMLSelectionObject_Type)
   is
   begin
      Invoke (This, IHTMLSelectionObject_clear);
   end clear;

   function Get_type
     (This : IHTMLSelectionObject_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLSelectionObject_Get_type);
   end Get_type;

end MSHTML.IHTMLSelectionObject_Object;

