anchor.diff:      AddMenuItem('Replace...', rsKeyCtrl+'R', nil).Enabled := False;
       AddMenuItem('-', '', nil);
       AddMenuItem('Procedure List...', rsKeyCtrl+'G', @miSearchProcedureList);
  +    AddMenuItem('Go to line...', rsKeyAlt+'G', @miGoToLineClick);
     end;
   
     mnuView := TfpgPopupMenu.Create(self);
  
positive.code:     procedure   miFindClicked(Sender: TObject);
      procedure   miFindNextClicked(Sender: TObject);
      procedure   miFindPrevClicked(Sender: TObject);
      procedure   miSearchProcedureList(Sender: TObject);
      procedure   miAboutFPGuiClicked(Sender: TObject);
      procedure   miAboutIDE(Sender: TObject);
  
negative.code:   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;
  