From 332761d9151af84a18ead61fa5bc37ea15e7497f Mon Sep 17 00:00:00 2001 From: fdbozzo Date: Sat, 8 Mar 2014 03:40:00 +0100 Subject: [PATCH] =?UTF-8?q?Changeset:=20194=20fdbozzo=20-=2008/03/2014=200?= =?UTF-8?q?2:51:08:=20Arreglo=20de=20par=C3=A1metros=20en=20write=5FALL=5F?= =?UTF-8?q?OBJECT=5FMETHODS?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- foxbin2prg.prg | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/foxbin2prg.prg b/foxbin2prg.prg index cba2530..34015fd 100644 --- a/foxbin2prg.prg +++ b/foxbin2prg.prg @@ -7732,7 +7732,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base ******************************************************************************************************************* PROCEDURE write_ALL_OBJECT_METHODS - LPARAMETERS tcMethods, laPropsAndComments, lnPropsAndComments_Count, laProtected, lnProtected_Count + LPARAMETERS tcMethods, taPropsAndComments, tnPropsAndComments_Count, taProtected, tnProtected_Count *-- Finalmente, todos los métodos los ordeno y escribo juntos LOCAL laMethods(1), laCode(1), lnMethodCount, I, lcMethods, lcMethods2 @@ -7743,11 +7743,15 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base WITH THIS AS c_conversor_bin_a_prg OF 'FOXBIN2PRG.PRG' .SortMethod( @tcMethods, @laMethods, @laCode, '', @lnMethodCount ; - , @laPropsAndComments, lnPropsAndComments_Count, @laProtected, lnProtected_Count ) + , @taPropsAndComments, tnPropsAndComments_Count, @taProtected, tnProtected_Count ) FOR I = 1 TO lnMethodCount *-- Genero los métodos indentados *-- Sustituyo el TEXT/ENDTEXT aquí porque a veces quita espacios de la derecha, y eso es peligroso + IF laMethods(I,2) = 0 + LOOP + ENDIF + lcMethods = lcMethods + CR_LF + C_TAB + laMethods(I,3) + C_PROCEDURE + ' ' + laMethods(I,1) lcMethods = lcMethods + CR_LF + .IndentarMemo( laCode(laMethods(I,2)), CHR(9) + CHR(9) ) lcMethods = lcMethods + CR_LF + C_TAB + C_ENDPROC