anchor.diff:    end;
   end;
   
  -function TfmMain.DoDialogMenuList(const ACaption: string; AItems: TStringList; out AItemIndex: integer;
  -  out AItemObject: TObject): boolean;
  +function TfmMain.DoDialogMenuList(const ACaption: string; AItems: TStringList): integer;
   var
     Form: TfmMenuList;
   begin
  -  AItemIndex:= -1;
  -  AItemObject:= nil;
  +  Result:= -1;
     Form:= TfmMenuList.Create(Self);
     try
       UpdateInputForm(Form);
       Form.Caption:= ACaption;
       Form.Items:= AItems;
       Form.ShowModal;
  -    Result:= Form.ResultIndex>=0;
  -    if Result then
  -    begin
  -      AItemIndex:= Form.ResultIndex;
  -      AItemObject:= AItems.Objects[Form.ResultIndex];
  -    end;
  +    Result:= Form.ResultIndex;
     finally
       FreeAndNil(Form);
     end;
  
positive.code:       Exit;
      end;
  
      if not DoDialogMenuList(strCaption, items, NLine, Obj) then
      begin
        MsgStatus(msgStatusCancelled);
        Exit
      end;
    finally
      FreeAndNil(items);
    end;
  
    NLine:= PtrInt(Obj);
    if NLine>NumMax then
      NLine:= NumMax;
  
    Ed.DoGotoPos(
      Point(0, NLine),
  
negative.code:     function DoDialogCommands_Py(AShowUsual, AShowPlugins, AShowLexers,
        AAllowConfig, AShowCentered: boolean; ACaption: string): string;
      procedure DoDialogGoto;
      function DoDialogMenuList(const ACaption: string; AItems: TStringList): integer;
      procedure DoDialogGotoBookmark;
      function DoDialogSaveTabs: boolean;
      procedure DoDialogLexerProp(an: TecSyntAnalyzer);
  