anchor.diff:            'hotkey',
             PChar(ShortCutToText(mi.Items[i].ShortCut)),
             'tag',
  -          PChar(STagString)
  +          PChar(STagString),
  +          'command',
  +          CmdObject
             ));
       end;
     end;
  
positive.code:         STagString:= '';
        end;
  
        PyList_SetItem(Result, i,
          Py_BuildValue('{sLsssissssss}',
            'id',
            Int64(PtrInt(mi.Items[i])),
            'cap',
  
negative.code:   NTag: PtrInt;
    NCommand: integer;
    SCommand, STagString: string;
    CmdObject: PPyObject;
  begin
    //this updates PopupText items tags
    PopupText.OnPopup(nil);
  