diff --git a/TESTS/DATOS_READONLY/menu2.mn2 b/TESTS/DATOS_READONLY/menu2.mn2
index de4e8a9..83c9f55 100644
--- a/TESTS/DATOS_READONLY/menu2.mn2
+++ b/TESTS/DATOS_READONLY/menu2.mn2
@@ -2,7 +2,7 @@
* (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.19" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\menu2.mnx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*< FOXBIN2PRG: Version="1.19" SourceFile="menu2.mnx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*5
*APPEND
@@ -14,24 +14,24 @@
*
DEFINE MENU _MSYSMENU BAR
-DEFINE PAD _3Z80ZOKYJ OF _MSYSMENU PROMPT "Opción A con submenú" COLOR SCHEME 3 ;
+DEFINE PAD _40Q0H1MMN OF _MSYSMENU PROMPT "Opción A con submenú" COLOR SCHEME 3 ;
NEGOTIATE NONE, LEFT ;
KEY DEL, "Pulsar " ;
SKIP FOR SKIP_FOR() ;
- MESSAGE "Mensaje para Opción A con submenú" && Comentario
+ MESSAGE "Mensaje para Opción A con submenú" && Comentariomultilínearompetodo
-ON PAD _3Z80ZOKYJ OF _MSYSMENU ACTIVATE POPUP OpciónA_CS
+ON PAD _40Q0H1MMN OF _MSYSMENU ACTIVATE POPUP OpciónA_CS
*----------------------------------
DEFINE POPUP OpciónA_CS MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF OpciónA_CS PROMPT "Opción A-1" ;
- PICTURE "..\..\foxunit\fxuacknowledgements.bmp"
+ PICTURE "..\..\foxunit\fxuacknowledgements.bmp" && Comentariomultilínearompetodo
ON BAR 1 OF OpciónA_CS ACTIVATE POPUP OpciónA1
*----------------------------------
DEFINE POPUP OpciónA1 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR Shortcut_Menu_Title OF OpciónA1 PROMPT "OpciónA-1-Sub" ;
- PICTURE "..\..\foxunit\fxuacknowledgements.bmp"
+ PICTURE "..\..\foxunit\fxuacknowledgements.bmp" && Comentariomultilínearompetodo
ON SELECTION BAR Shortcut_Menu_Title OF OpciónA1 wait window "Ejecuta Comando o función para Opción A-1"
DEFINE BAR 2 OF OpciónA_CS PROMPT "Opción A-2"
@@ -65,6 +65,11 @@ ON PAD _3Z80ZOKYJ OF _MSYSMENU ACTIVATE POPUP Opci
SKIP FOR NOT glEnabled_Opc_A_2_Sub_3 ;
PICTRES _mfi_sysprint ;
MESSAGE "Message para Opción A-2-Sub.3 (Tipo Bar#)" && Comentarios para Opción A-2-Sub.3
+
+ DEFINE BAR 3 OF OpciónA_CS PROMPT "Opción A-3" ;
+ SKIP FOR valor de skip() ;
+ MESSAGE "un mensaje de texto" && Y este esel nuevo comandodentro de un PROC!
+ ON SELECTION BAR 3 OF OpciónA_CS ON ERROR ****
ON SELECTION POPUP OpciónA_CS *-- PROCEDURE Le cambié el nombre!
DEFINE PAD opc_b OF _MSYSMENU PROMPT "Opción B con comando" COLOR SCHEME 3 ;
@@ -73,8 +78,8 @@ DEFINE PAD opc_b OF _MSYSMENU PROMPT "Opci
MESSAGE "Mensaje para Opción B con Command" && Comentario de la Opción b
ON SELECTION PAD opc_b OF _MSYSMENU WAIT WINDOW "Opción B"
-ON SELECTION POPUP ALL *- Menu bar procedure
-ON SELECTION MENU _MSYSMENU *-- Menu Procedure
+ON SELECTION POPUP ALL DO ALL_FB2P
+ON SELECTION MENU _MSYSMENU DO SELECTION_MENU__MSYSMENU_FB2P
*
@@ -86,6 +91,20 @@ PROCEDURE Menu1_Opci
*ENDPROC
ENDPROC && Menu1_Opción_A_2_Sub_SNIPPET
+PROCEDURE ALL_FB2P
+ *- Menu bar procedure
+ multilínea
+ rompetodo
+