*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.20" SourceFile="menu_comments_procedure.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>1</MenuType>
*<MenuLocation>REPLACE</MenuLocation>

*<MenuCode>
DEFINE MENU _MSYSMENU BAR
DEFINE PAD "_40O0YW62F" OF _MSYSMENU PROMPT "A first Entry" COLOR SCHEME 3

ON PAD _40O0YW62F OF _MSYSMENU ACTIVATE POPUP AfirstEntr

	*----------------------------------
	DEFINE POPUP AfirstEntr MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF AfirstEntr PROMPT "Item 1" ;
		KEY ALT+1, "ALT+1" && Do something depending on App version
	ON SELECTION BAR 1 OF AfirstEntr iif(oApp.Version()=="v1.0",oApp.Run(1), oApp.Run(2))

	DEFINE BAR 2 OF AfirstEntr PROMPT "Hide Errors" && Setup some very effective error handling
	ON SELECTION BAR 2 OF AfirstEntr DO BAR_2_OF_AfirstEntr_FB2P

DEFINE PAD "_40O0YW62G" OF _MSYSMENU PROMPT "E\<dit" COLOR SCHEME 3 ;
	KEY ALT+D, "ALT+D" ;
	SKIP FOR oApp.Database() == "Production" && Don't show this option when rendering menu item on production

ON PAD _40O0YW62G OF _MSYSMENU ACTIVATE POPUP Edit

	*----------------------------------
	DEFINE POPUP Edit MARGIN RELATIVE SHADOW COLOR SCHEME 4
*</MenuCode>