[GExperts-Checkins] SF.net SVN: gexperts:[1911] trunk/Source/Framework/GX_UnitPositions.pas

[<tw...@us...>]

Revision: 1911
          http://sourceforge.net/p/gexperts/code/1911
Author:   twm
Date:     2017-02-04 18:29:41 +0000 (Sat, 04 Feb 2017)
Log Message:
-----------
added "Contains"

Modified Paths:
--------------
    trunk/Source/Framework/GX_UnitPositions.pas

Modified: trunk/Source/Framework/GX_UnitPositions.pas
===================================================================
--- trunk/Source/Framework/GX_UnitPositions.pas	2017-02-04 18:29:17 UTC (rev 1910)
+++ trunk/Source/Framework/GX_UnitPositions.pas	2017-02-04 18:29:41 UTC (rev 1911)
@@ -37,6 +37,7 @@
   SLibraryName = 'library';
   SPackageName = 'package';
   SRequiresName = 'requires';
+  SContainsName = 'contains';
   SInterfaceName = 'interface';
   SInterfaceUsesName = 'interface uses';
   SImplementationName = 'implementation';
@@ -139,6 +140,10 @@
           Section := sImplementation;
           FPosList.AddObject(SImplementationName, TObject(FParser.TokenPos));
         end;
+      tkContains:
+        begin
+          FPosList.AddObject(SContainsName, TObject(FParser.TokenPos));
+        end;
       tkRequires:
         begin
           FPosList.AddObject(SRequiresName, TObject(FParser.TokenPos));

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.