anchor.diff:  function Between( const Value: longint; const Limit1: longint; const Limit2: longint ): boolean;
   
   
  -Operator = (ARect: TRect; BRect: TRect): boolean;
  +operator = (ARect: TRect; BRect: TRect): boolean;
   
   // Destroy the objects stored in List and clear the list.
  -Procedure ClearListAndObjects( List: TList );
  +procedure ClearListAndObjects( List: TList );
   // Destroy the objects stored in the list and then destroy the list itself
   // And set the reference to nil
  -Procedure DestroyListAndObjects( Var List: TList );
  +procedure DestroyListAndObjects( Var List: TList );
   // Destroy the objects stored in the list.
   // You probably want to use one of the two functions above.
  -Procedure DestroyListObjects( List: TList );
  -
  -Procedure AddList( Source, Dest: TList );
  -Procedure AssignList( Source, Dest: TList );
  +procedure DestroyListObjects( List: TList );
  +
  +procedure AddList( Source, Dest: TList );
  +procedure AssignList( Source, Dest: TList );
  +
  +procedure ListFilesInDirectory(const aDirectory: String; const aFilter: String; const aWithDirectoryFlag: boolean; var aList: TStrings);
  +
  +// add all file name parts of aFileNameString to the aResult
  +// check for containing environment vars
  +// and include all help files if the environment var points
  +// to a directory
  +procedure ParseAndExpandFileNames(const aFileNameString: String; aResult: TStrings);
   
   
   
  
positive.code:   AddList( Source, Dest );
  end;
  
  
  
  end.
  
  
negative.code:   fpg_utils
    ,fpg_main
    ,ACLStringUtility
    ,dvconstants
    ;
  
    Function GetAspectPrefix(const aLogAspect: LogAspect): String;
    Begin
  