romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changeset: 578 fdbozzo - 22/12/2014 00:01:42:

Browse Source 
- Arreglo del INTERACTIVE faltante y uso de ATC() en vez de $
This commit is contained in:
fdbozzo
2014-12-23 18:22:46 +01:00
parent c5593d7c7e
commit fed65fbb86
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
foxbin2prg.prg
View File

@@ -1954,8 +1954,9 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
*-- EJECUCI<43>N NORMAL
IF '-SHOWMSG' $ ('-' + tcType) AND NOT '-BIN2PRG' $ ('-' + tcType) AND NOT '-PRG2BIN' $ ('-' + tcType) ;
AND lcInputFile_Type == C_FILETYPE_DIRECTORY
IF ( ATC('-SHOWMSG', ('-' + tcType)) = 1 OR ATC('-INTERACTIVE', ('-' + tcType)) = 1 ) ;
AND ATC('-BIN2PRG', ('-' + tcType)) = 0 AND ATC('-PRG2BIN', ('-' + tcType)) = 0 ;
AND lcInputFile_Type == C_FILETYPE_DIRECTORY THEN
*-- Se seleccion<6F> un directorio y se puede elegir: Bin2Txt, Txt2Bin y Nada
.writeLog( loLang.C_INTERACTIVE_DIRECTORY_SELECTION_LOC )
loFrm_Interactive = CREATEOBJECT('frm_interactive')
@@ -2024,7 +2025,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
EXIT
CASE '-BIN2PRG' $ ('-' + tcType)
CASE ATC('-BIN2PRG', ('-' + tcType)) = 1
.writeLog( '> ' + loLang.C_OPTION_LOC + ': BIN2PRG' )
DO CASE
@@ -2077,7 +2078,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
ENDCASE
CASE '-PRG2BIN' $ ('-' + tcType)
CASE ATC('-PRG2BIN', ('-' + tcType)) = 1
.writeLog( '> ' + loLang.C_OPTION_LOC + ': PRG2BIN' )
DO CASE
@@ -2300,7 +2301,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
loLang = CREATEOBJECT("CL_LANG","EN")
ENDIF
IF '-SHOWMSG' $ ('-' + tcType) OR '-INTERACTIVE' $ ('-' + tcType) THEN
IF ATC('-SHOWMSG', ('-' + tcType)) = 1 OR ATC('-INTERACTIVE', ('-' + tcType)) = 1 THEN
toEx.UserValue = toEx.UserValue + 'tc_InputDir = [' + TRANSFORM(tc_InputFile) + ']' + CR_LF
THIS.l_ShowErrors = .F. && La opci<63>n "SHOWMSG" muestra su propio mensaje
ENDIF
@@ -2336,7 +2337,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
CD (JUSTPATH(THIS.c_CurDir))
DO CASE
CASE '-SHOWMSG' $ ('-' + tcType) OR '-INTERACTIVE' $ ('-' + tcType)
CASE ATC('-SHOWMSG', ('-' + tcType)) = 1 OR ATC('-INTERACTIVE', ('-' + tcType)) = 1
DO CASE
CASE lnCodError = 1799 && Conversion Cancelled