From 331e70848e63ed3904ea9d470fad4a3c4266844d Mon Sep 17 00:00:00 2001 From: fernando Date: Fri, 22 Nov 2013 21:19:20 +0100 Subject: [PATCH] =?UTF-8?q?Changeset:=207=20Changeset:=207=20Renombrado=20?= =?UTF-8?q?de=20m=C3=A9todos?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- foxbin2prg.prg | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/foxbin2prg.prg b/foxbin2prg.prg index 1a35e4a..27c22ed 100644 --- a/foxbin2prg.prg +++ b/foxbin2prg.prg @@ -3165,10 +3165,10 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg WHILE ALLTRIM(GETWORDNUM(TABLABIN.PARENT, 1, '.')) == lcObjName SCATTER MEMO NAME loRegObj - THIS.get_ADD_OBJECT_Methods( @loRegObj, @loRegClass, @lcMethods ) + THIS.get_ADD_OBJECT_METHODS( @loRegObj, @loRegClass, @lcMethods ) ENDSCAN - THIS.write_ALL_METHODS( @lcMethods ) + THIS.write_ALL_OBJECT_METHODS( @lcMethods ) GOTO RECORD (lnRecno) ENDSCAN @@ -3317,10 +3317,10 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg WHILE ALLTRIM(GETWORDNUM(TABLABIN.PARENT, 1, '.')) == lcObjName SCATTER MEMO NAME loRegObj - THIS.get_ADD_OBJECT_Methods( @loRegObj, @loRegClass, @lcMethods ) + THIS.get_ADD_OBJECT_METHODS( @loRegObj, @loRegClass, @lcMethods ) ENDSCAN - THIS.write_ALL_METHODS( @lcMethods ) + THIS.write_ALL_OBJECT_METHODS( @lcMethods ) GOTO RECORD (lnRecno) ENDSCAN @@ -3639,8 +3639,8 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base LOCAL THIS AS c_conversor_bin_a_prg OF 'FOXBIN2PRG.PRG' #ENDIF _MEMBERDATA = [] ; - + [] ; - + [] ; + + [] ; + + [] ; + [] ; + [] ; + [] ; @@ -3684,7 +3684,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base ******************************************************************************************************************* - PROCEDURE write_ALL_METHODS + PROCEDURE write_ALL_OBJECT_METHODS LPARAMETERS tcMethods *-- Finalmente, todos los métodos los ordeno y escribo juntos @@ -3710,7 +3710,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base ******************************************************************************************************************* - PROCEDURE get_ADD_OBJECT_Methods + PROCEDURE get_ADD_OBJECT_METHODS LPARAMETERS toRegObj, toRegClass, tcMethods TRY @@ -4925,6 +4925,7 @@ DEFINE CLASS CL_OBJETO AS CUSTOM + [] ; + [] ; + [] ; + + [] ; + [] DIMENSION _Props[1,1], _Procedures[1] @@ -4942,6 +4943,7 @@ DEFINE CLASS CL_OBJETO AS CUSTOM _Procedure_Count = 0 _User = '' _Pendiente = .T. + _ZOrder = 0 ************************************************************************************************