anchor.diff:              end;
               lst[i] := AnsiReplaceStr(lst[i], '%classname%', uclass.name);
               lst[i] := AnsiReplaceStr(lst[i], '%classfile%', uclass.filename);
  -            lst[i] := AnsiReplaceStr(lst[i], '%classpath%', uclass.package.path+PATHDELIM+uclass.filename);
  +            lst[i] := AnsiReplaceStr(lst[i], '%classpath%', exfile);
               lst[i] := AnsiReplaceStr(lst[i], '%packagename%', uclass.package.name);
               lst[i] := AnsiReplaceStr(lst[i], '%packagepath%', uclass.package.path);
               lst[i] := AnsiReplaceStr(lst[i], '%classsearch%', SearchConfig.query);
  
positive.code:     Purpose:
          Main window for the GUI
  
      $Id: unit_main.pas,v 1.131 2004-11-27 10:47:39 elmuerte Exp $
  *******************************************************************************}
  
  {
  
negative.code:         statustext : string; // current status text
          procedure NextBatchCommand;
          procedure ExecuteProgram(exe: string; params: TStringList = nil; prio: integer = -1; show: integer = SW_SHOW);
          procedure OpenSourceLine(uclass: TUClass; line, caret: integer; exfile: string = '');
          procedure OpenSourceInline(uclass: TUClass; line, caret: integer; exfile: string = '');      
      end;
  
      // status redirecting
  