//	M010 : Right click and popup menu, user event processing
option unsigned;

define	fEnd = 0;

//------------------------------------------------------------------------------//
//	Right click and popup menu													//
//																				//
//	Return	F	None															//
//------------------------------------------------------------------------------//
function main()
{
	_Cls();
	_PrintF("<<< %s >>>\n", $_MyName);
	_PrintF("Press the upper button to switch the popup menu.\n");
	_PrintF("Right-click to display the pop-up menu.\n");
	_PrintF("Shift / Ctrl + Right click always displays its own pop-up menu.\n");
	_PrintF("Click the Exit button to end the execution.\n");
	_PrintF("\n");

	_BtnOpen(0, "Standard pop-up menu");
	_BtnOpen(1, "A unique pop-up menu");
	_BtnOpen(2, "End");

	_Stop();

}
//------------------------------------------------------------------------------//
//	Processing when button is pressed											//
//																				//
//	ArgumentF	BtnNo - Button ID		 										//
//																				//
//	Return	F	None															//
//------------------------------------------------------------------------------//
function _OnButton(BtnNo)
{
	if		(BtnNo == 0) _EnableStdRClk(_TRUE );	//	Standard right popup menu permission by right click
	else if (BtnNo == 1) _EnableStdRClk(_FALSE);	//	Standard popup menu by right click is prohibited
	else if (BtnNo == 2) _Restart();				//	End
}
//------------------------------------------------------------------------------//
//	Right click processing														//
//																				//
//	ArgumentF	x - x position		shift - Shift Key press flag				//
//				y - y position		ctrl  - Ctrl  Key press flag				//
//																				//
//	Return	F	None															//
//------------------------------------------------------------------------------//
function _OnRClick(x, y, shift, ctrl)
{
	define	id;
	define	$menu[] = {"1 : Apple", "2 : Orange", "3 : banana"};

	if ((id = _PopupMenu($menu[], x, y)) != -1) {
		_PrintF("id = %d, Selected '%s'.\n", id, $menu[id]);
	}
}
//------------------------------------------------------------------------------//
//	User event processing														//
//																				//
//	ArgumentF	state - Checked state of check boxi1:CheckedC0:Uncheckedj	//
//																				//
//	Return	F	None															//
//------------------------------------------------------------------------------//
function OnUserEvent(state)
{
	_PrintF("OnUserEvent, Check status = %d\n", state);
}
