From 5756e31371ea1ada830464a41a6cfc30d26728b1 Mon Sep 17 00:00:00 2001 From: FellippeHeitor Date: Sat, 14 Aug 2021 11:36:26 -0300 Subject: [PATCH] Requests only elements, shows the variable preset. --- source/ide/ide_methods.bas | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas index 05069f2f5..6a1dea26f 100644 --- a/source/ide/ide_methods.bas +++ b/source/ide/ide_methods.bas @@ -8001,21 +8001,24 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction) IF INSTR(nativeDataTypes$, varType$) = 0 THEN 'It's a UDT temp$ = usedVariableList(varDlgList(y).index).name + "." - v$ = ideinputbox$("Watch UDT", "#Element to watch", temp$, "", 45, 0, ok) + v$ = ideinputbox$("Watch UDT", temp$, "", "", 45, 0, ok) IF ok THEN - IF LEFT$(v$, LEN(temp$)) = temp$ THEN v$ = MID$(v$, LEN(temp$)) + IF LEFT$(v$, 1) <> "." THEN v$ = "." + v$ v$ = lineformat$(UCASE$(v$)) getid usedVariableList(varDlgList(y).index).id Error_Happened = 0 result$ = udtreference$("", v$, typ) IF Error_Happened THEN result = idemessagebox("Error", Error_Message, "#OK") + usedVariableList(varDlgList(y).index).watch = 0 GOTO unWatch ELSE result = idemessagebox("Result", v$ + "\n" + result$ + "\n" + STR$(typ), "#OK") - GOTO unWatch 'temporarily + usedVariableList(varDlgList(y).index).watch = 0: GOTO unWatch 'temporarily END IF ELSE + usedVariableList(varDlgList(y).index).watch = 0 + GOTO unWatch END IF END IF