removed binary sources (FoxBin2Prg)
This commit is contained in:
@@ -4,67 +4,8 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< 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="" />
|
||||
*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
|
||||
*< EXTERNAL_CLASS: Name="cl_commandgroup" Baseclass="commandgroup" />
|
||||
*< EXTERNAL_CLASS: Name="cl_optiongroup" Baseclass="optiongroup" />
|
||||
|
||||
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="" 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<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
|
||||
*
|
||||
Reference in New Issue
Block a user