* mock_xmenu_storno.prg - mock XMENU specific testului E2E storno (test_storno_e2e.prg).
* Raspunde din coada PUBLIC gaXmenuQueue/gnXmenuQueuePos (populata de test inainte de fiecare
* Click care deschide meniul cmdTrimite); coada goala -> 0 (echivalent Esc/renuntare la xmenu).
* Logheaza toate apelurile in PUBLIC gaXmenuCalls/gnXmenuCalls.
FUNCTION xmenu
	LPARAMETERS tcItems, tnBar
	LOCAL lnRaspuns
	IF TYPE('gnXmenuQueuePos') = 'N' AND gnXmenuQueuePos <= ALEN(gaXmenuQueue)
		lnRaspuns = gaXmenuQueue[gnXmenuQueuePos]
		gnXmenuQueuePos = gnXmenuQueuePos + 1
	ELSE
		lnRaspuns = 0
	ENDIF
	IF TYPE('gnXmenuCalls') = 'N'
		gnXmenuCalls = gnXmenuCalls + 1
		DIMENSION gaXmenuCalls[gnXmenuCalls, 2]
		gaXmenuCalls[gnXmenuCalls, 1] = TRANSFORM(tcItems)
		gaXmenuCalls[gnXmenuCalls, 2] = lnRaspuns
	ENDIF
	IF TYPE('gcUILog') = 'C'
		DO PrLogLocal WITH 'MOCK xmenu: [' + LEFT(TRANSFORM(tcItems), 100) + '] -> ' + TRANSFORM(lnRaspuns)
	ENDIF
	RETURN lnRaspuns
ENDFUNC