From d29a6657ccd46fe688b590d4892edbd94887ebc7 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Thu, 19 Aug 2021 01:28:33 -0300
Subject: [PATCH] Encloses string data within quotation marks (Watch Panel).

---
 source/ide/ide_methods.bas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index f96524456..34ddbf172 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -7651,6 +7651,7 @@ SUB showvWatchPanel (this AS vWatchPanelType, currentScope$, totalVisibleVariabl
         END IF
         item$ = thisName$ + SPACE$(longestVarName - LEN(thisName$)) + " = "
         IF usedVariableList(tempIndex&).subfunc = currentScope$ OR usedVariableList(tempIndex&).subfunc = "" THEN
+            isString = (INSTR(usedVariableList(tempIndex&).varType, "STRING *") > 0 OR usedVariableList(tempIndex&).varType = "STRING")
             IF usedVariableList(tempIndex&).isarray THEN
                 seqIndex& = INSTR(usedVariableList(tempIndex&).indexes, MKL$(tempArrayIndex&))
                 IF seqIndex& <= LEN(usedVariableList(tempIndex&).mostRecentValue) - 3 THEN
@@ -7661,7 +7662,11 @@ SUB showvWatchPanel (this AS vWatchPanelType, currentScope$, totalVisibleVariabl
                 tempValue$ = usedVariableList(tempIndex&).mostRecentValue
             END IF
 
-            item$ = item$ + tempValue$
+            IF isString THEN
+                item$ = item$ + CHR$(34) + tempValue$ + CHR$(34)
+            ELSE
+                item$ = item$ + tempValue$
+            END IF
             COLOR fg
         ELSE
             item$ = item$ + "<out of scope>"