Changeset: 137 v1.19.3 Change on TXT timestamps to preserve empty values / Optimization on TXT generation of ZOrders

TESTS/DATOS_READONLY/fb2p_test_bug_metodo_movido.vc2

@@ -0,0 +1,68 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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\fb2p_test_bug_metodo_movido.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*
+DEFINE CLASS cl_commandgroup AS commandgroup 
+ 	*< CLASSDATA: Baseclass="commandgroup" Timestamp="2013/12/07 12:33:09" Scale="Pixels" Uniqueid="_3Y01AZERO" />
+	ButtonCount = 2
+	Height = 66
+	Name = "cl_commandgroup"
+	Value = 1
+	Width = 94
+	Command1.Caption = "Command1"
+	Command1.Height = 27
+	Command1.Left = 5
+	Command1.Name = "Command1"
+	Command1.Top = 5
+	Command1.Width = 84
+	Command2.Caption = "Command2"
+	Command2.Height = 27
+	Command2.Left = 5
+	Command2.Name = "Command2"
+	Command2.Top = 34
+	Command2.Width = 84
+	
+	PROCEDURE Command1.Click
+		TEXT	&& CL_COMMANDGROUP::Command1.Click()
+		* ESTE ES EL <20>NICO C<>DIGO QUE DEBER<45>A TENER ESTE M<>TODO.
+		* SI HAY M<>S C<>DIGO FUERA DEL TEXT/ENDTEXT, ES PORQUE SE EST<53> MEZCLANDO.
+		ENDTEXT
+	ENDPROC
+
+ENDDEFINE
+
+DEFINE CLASS cl_optiongroup AS optiongroup 
+ 	*< CLASSDATA: Baseclass="optiongroup" Timestamp="2013/12/07 12:25:17" Scale="Pixels" Uniqueid="_3Y01AVUO1" />
+	ButtonCount = 2
+	Height = 46
+	Name = "cl_optiongroup"
+	Value = 1
+	Width = 71
+	Option1.Caption = "Option1"
+	Option1.Height = 17
+	Option1.Left = 5
+	Option1.Name = "Option1"
+	Option1.Top = 5
+	Option1.Value = 1
+	Option1.Width = 61
+	Option2.Caption = "Option2"
+	Option2.Height = 17
+	Option2.Left = 5
+	Option2.Name = "Option2"
+	Option2.Top = 24
+	Option2.Width = 61
+	
+	PROCEDURE Option1.Click
+		TEXT	&& CL_OPTIONGROUP::Option1.Click()
+		* BUG DEL M<>TODO MOVIDO:
+		*      Este m<>todo es para reproducir un bug, por el cu<63>l el <20>ltimo PROCEDURE de un OBJETO
+		*      de la clase anterior se queda referenciado en un obejeto que no se limpia,
+		*      y por el cu<63>l el siguiente PROCEDURE de OBJETO de la siguiente CLASE se agrega
+		*      al mismo, quedando esa clase con un m<>todo vac<61>o. (O sea, esta)
+		ENDTEXT
+	ENDPROC
+
+ENDDEFINE