anchor.diff:          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);
  -        procedure OpenSourceInline(uclass: TUClass; line, caret: integer);      
  +        procedure OpenSourceLine(uclass: TUClass; line, caret: integer; exfile: string = '');
  +        procedure OpenSourceInline(uclass: TUClass; line, caret: integer; exfile: string = '');      
       end;
   
       // status redirecting
  
positive.code:     end;
  end;
  
  // Open a source file at a specific line
  procedure Tfrm_UnCodeX.OpenSourceLine(uclass: TUClass; line, caret: integer);
  var
      lst:    TStringList;
      i:      integer;
      exe:    string;
  begin
      if (OpenResultCmd = '') then begin
          ExecuteProgram(uclass.package.path+PATHDELIM+uclass.filename);
          exit;
      end;
  
  
negative.code:     Purpose:
          Main window for the GUI
  
      $Id: unit_main.pas,v 1.132 2004-12-01 06:40:11 elmuerte Exp $
  *******************************************************************************}
  
  {
  