anchor.diff:  end;
   
   
  -function TKMKeyLibrary.GetFuncs(aIndex: Word): TKMFuncInfo;
  +function TKMKeyLibrary.GetFunc(aIndex: Word): TKMFuncInfo;
   begin
     Result := fFuncs[aIndex];
   end;
  
positive.code: 
    TKMKeyLibrary = class
    private
      fCount: Integer;
      fFuncs: array [0..KEYMAP_COUNT-1] of TKMFuncInfo;
      fKeymapPath: string;
      function GetFuncs(aIndex: Word): TKMFuncInfo;
    public
      constructor Create;
      function GetKeyName(aKey: Word): string;
  
negative.code: 
  function TKMKeyLibrary.GetFunctionNameById(aId: Integer): string;
  begin
    if InRange(aId, 0, KEYMAP_COUNT - 1) then
      Result := gResTexts[KEY_FUNC_TX[aId]]
    else
      Result := gResTexts[TX_KEY_FUNC_UNKNOWN] + ' ' + IntToStr(aId) + '! ~~~';
  end;
  
  
  