anchor.diff:    edt.SetFocus;
   end;
   
  +procedure TMainForm.miGoToLineClick(Sender: TObject);
  +var
  +  sValue: string;
  +  i: integer;
  +  edt: TfpgTextEdit;
  +begin
  +  edt := TfpgTextEdit(pcEditor.ActivePage.Components[0]);
  +  if not Assigned(edt) then
  +    Exit;
  +  if fpgInputQuery('Go to line', 'Go to line number?', sValue) then
  +  begin
  +    try
  +      i := StrToInt(sValue);
  +      edt.GotoLine(i);
  +    except
  +      on E: Exception do
  +         ShowMessage('Invalid line number.' + LineEnding + E.Message);
  +    end;
  +  end;
  +end;
  +
   procedure TMainForm.miSearchProcedureList(Sender: TObject);
   var
     s: TfpgString;
  
positive.code:     AddMenuItem('Replace...', rsKeyCtrl+'R', nil).Enabled := False;
      AddMenuItem('-', '', nil);
      AddMenuItem('Procedure List...', rsKeyCtrl+'G', @miSearchProcedureList);
    end;
  
    mnuView := TfpgPopupMenu.Create(self);
  
negative.code:     procedure   miFindClicked(Sender: TObject);
      procedure   miFindNextClicked(Sender: TObject);
      procedure   miFindPrevClicked(Sender: TObject);
      procedure   miGoToLineClick(Sender: TObject);
      procedure   miSearchProcedureList(Sender: TObject);
      procedure   miAboutFPGuiClicked(Sender: TObject);
      procedure   miAboutIDE(Sender: TObject);
  