*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="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="" Scale="Pixels" Uniqueid="" />

	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 ÚNICO CÓDIGO QUE DEBERÍA TENER ESTE MÉTODO.
		* SI HAY MÁS CÓDIGO FUERA DEL TEXT/ENDTEXT, ES PORQUE SE ESTÁ MEZCLANDO.
		ENDTEXT
	ENDPROC

ENDDEFINE

DEFINE CLASS cl_optiongroup AS optiongroup 
 	*< CLASSDATA: Baseclass="optiongroup" Timestamp="" Scale="Pixels" Uniqueid="" />

	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ál el último PROCEDURE de un OBJETO
		*      de la clase anterior se queda referenciado en un obejeto que no se limpia,
		*      y por el cuál el siguiente PROCEDURE de OBJETO de la siguiente CLASE se agrega
		*      al mismo, quedando esa clase con un método vacío. (O sea, esta)
		ENDTEXT
	ENDPROC

ENDDEFINE