<unit name="ok_deprecated_default">
  <description><abstract>Test parsing property with deprecated directive and default specifier.</abstract><detailed> See https://github.com/pasdoc/pasdoc/issues/138</detailed></description>
  <structure name="TMyClass" name_with_generic="TMyClass" type="class">
    <ancestor name="TObject" declaration="TObject" />
    <routine name="GetItems" declaration="function GetItems(const Index: Integer): Byte;" visibility="public" type="function">
    </routine>
    <routine name="SetItems" declaration="procedure SetItems(const Index: Integer; const Value: Byte);" visibility="public" type="procedure">
    </routine>
    <property name="Items" declaration="property Items [const Index: Integer]: Byte read GetItems write SetItems; default; deprecated 'use instead X, Y fields';" visibility="public" deprecated_note="use instead X, Y fields" deprecated="true" indexdecl="[constIndex:Integer]" type="Byte" reader="GetItems" writer="SetItems" default_in_class="True" default_value="" nodefault="False"   stored="">
    </property>
  </structure>
</unit>
