package body MSHTML.DispCanvasTextMetrics_Object is

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

end MSHTML.DispCanvasTextMetrics_Object;

