anchor.diff:    fpg_utils
     ,fpg_main
     ,ACLStringUtility
  +  ,dvconstants
     ;
  -//  character // from utf8tools package (pulls in LCL requirement which we MUST change)
  -//  ;
   
     Function GetAspectPrefix(const aLogAspect: LogAspect): String;
     Begin
  
positive.code:   AddList( Source, Dest );
  end;
  
  
  
  end.
  
  
negative.code: function Between( const Value: longint; const Limit1: longint; const Limit2: longint ): boolean;
  
  
  operator = (ARect: TRect; BRect: TRect): boolean;
  
  // Destroy the objects stored in List and clear the list.
  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 );
  // 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 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);
  
  
  
  