42 lines
1.7 KiB
Plaintext
42 lines
1.7 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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_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
|