<unit name="ok_deprecated_tag" deprecated="true">
  <description><abstract>Test @deprecated tag.</abstract><detailed> Everything in this unit is deprecated. Even this whole unit itself. </detailed></description>
  <routine name="MyProc" declaration="procedure MyProc;" deprecated="true" type="procedure">
  </routine>
  <constant name="MyConst" declaration="MyConst = 1;" deprecated="true">
  </constant>
  <variable name="MyVar" declaration="MyVar: Integer;" deprecated="true">
  </variable>
  <type name="TMyType" declaration="TMyType = Integer;" deprecated="true">
    <description><abstract> Normal type deprecated.</abstract></description>
    <aliased-name>Integer</aliased-name>
  </type>
  <structure name="TMyClass" deprecated="true" name_with_generic="TMyClass" type="class">
    <description><abstract> Deprecated class.</abstract></description>
    <ancestor name="TObject" declaration="TObject" />
    <routine name="MyMethodLibrary" declaration="procedure MyMethodLibrary;" visibility="public" deprecated="true" type="procedure">
    </routine>
    <variable name="MyField" declaration="MyField: Integer;" visibility="public" deprecated="true">
      <description><abstract>Deprecated field.</abstract><detailed> </detailed></description>
    </variable>
    <property name="MyProperty" declaration="property MyProperty: Integer read MyField write MyField;" visibility="public" deprecated="true" indexdecl="" type="Integer" reader="MyField" writer="MyField" default_in_class="False" default_value="" nodefault="False"   stored="">
      <description><abstract>    Property is deprecated (you can specify @deprecated as many times as you want, because it's harmless).</abstract></description>
    </property>
  </structure>
</unit>
