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

Changeset: 210 fdbozzo - 16/03/2014 00:27:29:

Browse Source 
- Arreglo bug mnx: Cuando el prompt de una opción contiene comillas, se genera un mn2 inválido (Ryan Harris)
This commit is contained in:
fdbozzo
2014-03-16 10:14:27 +01:00
parent 2c9d4beb2c
commit 665891c632
7 changed files with 106 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
foxbin2prg.prg
View File

@@ -16927,7 +16927,8 @@ DEFINE CLASS CL_MENU_OPTION AS CL_MENU_COL_BASE
EXIT
ENDIF
loReg.PROMPT = CHRTRAN( ALLTRIM( STREXTRACT( tcLine, ' PROMPT ', ' COLOR ' ) ), '"', '' )
loReg.PROMPT = ALLTRIM( STREXTRACT( tcLine, ' PROMPT ', ' COLOR ' ) )
loReg.PROMPT = SUBSTR( loReg.PROMPT, 2, LEN( loReg.PROMPT ) - 2 )
*-- ANALISIS DEL "DEFINE PAD"
DO CASE
@@ -17117,7 +17118,8 @@ DEFINE CLASS CL_MENU_OPTION AS CL_MENU_COL_BASE
EXIT
ENDIF
loReg.PROMPT = CHRTRAN( ALLTRIM( STREXTRACT( tcLine, ' PROMPT ', ';', 1, 2 ) ), '"', '' )
loReg.PROMPT = ALLTRIM( STREXTRACT( tcLine, ' PROMPT ', ';', 1, 2 ) )
loReg.PROMPT = SUBSTR( loReg.PROMPT, 2, LEN( loReg.PROMPT ) - 2 )
*-- ANALISIS DEL "DEFINE BAR"
DO CASE