*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="fb2p_test_bug_metodo_movido.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS cl_optiongroup AS optiongroup 
 	*< CLASSDATA: Baseclass="optiongroup" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		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
	*</PropValue>
	
	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