69 lines
2.5 KiB
Plaintext
69 lines
2.5 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="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 Ú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="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á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
|