From 087c32063129a42da0c006ebd01a4be65e8bef73 Mon Sep 17 00:00:00 2001 From: FellippeHeitor Date: Thu, 19 Aug 2021 01:20:52 -0300 Subject: [PATCH] Encloses string data within quotation marks (Watch List dialog). --- source/ide/ide_methods.bas | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas index d33739b1d..f96524456 100644 --- a/source/ide/ide_methods.bas +++ b/source/ide/ide_methods.bas @@ -8249,18 +8249,24 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction) IF IdeDebugMode > 0 THEN IF usedVariableList(x).subfunc = currentScope$ OR usedVariableList(x).subfunc = "" THEN IF usedVariableList(x).watch THEN + isString = (INSTR(usedVariableList(x).varType, "STRING *") > 0 OR usedVariableList(x).varType = "STRING") IF usedVariableList(x).isarray THEN temp$ = usedVariableList(x).mostRecentValue IF LEN(temp$) THEN l$ = l$ + " = " + CHR$(16) + CHR$(variableNameColor) + "{" DO WHILE LEN(temp$) storageSlot& = CVL(LEFT$(temp$, 4)) temp$ = MID$(temp$, 5) + IF isString THEN l$ = l$ + CHR$(34) l$ = l$ + StrReplace$(vWatchArrayReceivedData$(storageSlot&), CHR$(0), " ") + IF isString THEN l$ = l$ + CHR$(34) IF LEN(temp$) THEN l$ = l$ + "," LOOP IF LEN(usedVariableList(x).mostRecentValue) THEN l$ = l$ + "}" ELSE - l$ = l$ + " = " + CHR$(16) + CHR$(variableNameColor) + StrReplace$(usedVariableList(x).mostRecentValue, CHR$(0), " ") + l$ = l$ + " = " + CHR$(16) + CHR$(variableNameColor) + IF isString THEN l$ = l$ + CHR$(34) + l$ = l$ + StrReplace$(usedVariableList(x).mostRecentValue, CHR$(0), " ") + IF isString THEN l$ = l$ + CHR$(34) END IF END IF ELSE