Changeset: 281 fdbozzo - 06/06/2014 01:16:10:

- Mejoras en tests

TESTS/DATOS_READONLY/f_form_aa.sc2

@@ -148,7 +148,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
 	WhatsThisButton = .F.
 	WhatsThisHelp = .F.
 	WhatsThisHelpID = -1
-	Width = (984)
+	Width = (998)
 	WindowState = 0
 	WindowType = 0
 	ZoomBox = .F.

TESTS/DATOS_READONLY/f_form_aa2.sc2

@@ -26,7 +26,6 @@ DEFINE CLASS f_form_aa1 AS f_form_aa OF "lib_controles.vcx"
 	Left = (2)
 	Name = "F_form_aa1"
 	Top = (4)
-	Width = 984
 	Cl_grid1.AllowAddNew = .F.
 	Cl_grid1.AllowAutoColumnFit = 0
 	Cl_grid1.AllowCellSelection = .T.

TESTS/DATOS_READONLY/lib_controles.vc2

@@ -4954,7 +4954,6 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
 	DefLeft = 
 	DefOleLCID = 0
 	DefTop = 
-	DefWidth = 
 	Desktop = .F.
 	Dockable = 0
 	DoCreate = .T.
@@ -5024,7 +5023,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
 	WhatsThisButton = .F.
 	WhatsThisHelp = .F.
 	WhatsThisHelpID = -1
-	Width = (984)
+	Width = 998
 	WindowState = 0
 	WindowType = 0
 	ZoomBox = .F.

TESTS/DATOS_READONLY/menu1.mn2

@@ -14,13 +14,13 @@
 
 *<MenuCode>
 DEFINE MENU _MSYSMENU BAR
-DEFINE PAD _42I10MLX9 OF _MSYSMENU PROMPT "Opci<63>n A con submen<65>" COLOR SCHEME 3 ;
+DEFINE PAD _43302YWGE OF _MSYSMENU PROMPT "Opci<63>n A con submen<65>" COLOR SCHEME 3 ;
 	NEGOTIATE NONE, LEFT ;
 	KEY DEL, "Pulsar <DEL>" ;
 	SKIP FOR SKIP_FOR() ;
 	MESSAGE "Mensaje para Opci<63>n A con submen<65>" && Comentario
 
-ON PAD _42I10MLX9 OF _MSYSMENU ACTIVATE POPUP Opci<63>nA_CS
+ON PAD _43302YWGE OF _MSYSMENU ACTIVATE POPUP Opci<63>nA_CS
 
 	*----------------------------------
 	DEFINE POPUP Opci<63>nA_CS MARGIN RELATIVE SHADOW COLOR SCHEME 4

TESTS/DATOS_READONLY/menu2.mn2

@@ -84,9 +84,9 @@ DEFINE PAD opc_b OF _MSYSMENU PROMPT "Opci
 
 ON SELECTION PAD opc_b OF _MSYSMENU WAIT WINDOW "Opci<63>n B"
 
-DEFINE PAD _42I10FCOZ OF _MSYSMENU PROMPT "\<About ] + alltrim(oApp.GetPProp([icAppTitle]))+"..." + [" COLOR SCHEME 3
+DEFINE PAD _43302YWHK OF _MSYSMENU PROMPT "\<About ] + alltrim(oApp.GetPProp([icAppTitle]))+"..." + [" COLOR SCHEME 3
 
-ON PAD _42I10FCOZ OF _MSYSMENU ACTIVATE POPUP _40t0aif1j
+ON PAD _43302YWHK OF _MSYSMENU ACTIVATE POPUP _40t0aif1j
 
 	*----------------------------------
 	DEFINE POPUP _40t0aif1j MARGIN RELATIVE SHADOW COLOR SCHEME 4ON SELECTION POPUP ALL DO ALL_FB2P

TESTS/DATOS_READONLY/menu3.mn2

@@ -9,13 +9,13 @@
 
 *<MenuCode>
 DEFINE MENU _MSYSMENU BAR
-DEFINE PAD _42I10MLZH OF _MSYSMENU PROMPT "ejemplo" COLOR SCHEME 3
+DEFINE PAD _43302YWIM OF _MSYSMENU PROMPT "ejemplo" COLOR SCHEME 3
 
-ON SELECTION PAD _42I10MLZH OF _MSYSMENU do test
+ON SELECTION PAD _43302YWIM OF _MSYSMENU do test
 
-DEFINE PAD _42I10MLZI OF _MSYSMENU PROMPT "ejemplo2" COLOR SCHEME 3
+DEFINE PAD _43302YWIN OF _MSYSMENU PROMPT "ejemplo2" COLOR SCHEME 3
 
-ON SELECTION PAD _42I10MLZI OF _MSYSMENU DO TEST
+ON SELECTION PAD _43302YWIN OF _MSYSMENU DO TEST
 
 *</MenuCode>
 

TESTS/DATOS_READONLY/test_report.fr2

@@ -74,8 +74,7 @@ COLOR=2
 	<tag2><![CDATA[]]>
 	<penred><![CDATA[-1]]>
 	<style><![CDATA[]]>
-	<expr><![CDATA["A test:
+	<expr><![CDATA["A test:
-Caption!"]]>
 Caption!"]]>
 	<supexpr><![CDATA[LEN("This is an example with a CRLF after it") > 0
 and .t.]]>