QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-30 05:10:37 +00:00
Code Issues Releases Wiki Activity

Requests only elements, shows the variable preset.

Browse source
This commit is contained in:
FellippeHeitor 2021-08-14 11:36:26 -03:00
parent b4a7ca03c4
commit 5756e31371
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
source/ide/ide_methods.bas
View file

@ -8001,21 +8001,24 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
IF INSTR(nativeDataTypes$, varType$) = 0 THEN IF INSTR(nativeDataTypes$, varType$) = 0 THEN
'It's a UDT 'It's a UDT
temp$ = usedVariableList(varDlgList(y).index).name + "." 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 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$)) v$ = lineformat$(UCASE$(v$))
getid usedVariableList(varDlgList(y).index).id getid usedVariableList(varDlgList(y).index).id
Error_Happened = 0 Error_Happened = 0
result$ = udtreference$("", v$, typ) result$ = udtreference$("", v$, typ)
IF Error_Happened THEN IF Error_Happened THEN
result = idemessagebox("Error", Error_Message, "#OK") result = idemessagebox("Error", Error_Message, "#OK")
usedVariableList(varDlgList(y).index).watch = 0
GOTO unWatch GOTO unWatch
ELSE ELSE
result = idemessagebox("Result", v$ + "\n" + result$ + "\n" + STR$(typ), "#OK") result = idemessagebox("Result", v$ + "\n" + result$ + "\n" + STR$(typ), "#OK")
GOTO unWatch 'temporarily usedVariableList(varDlgList(y).index).watch = 0: GOTO unWatch 'temporarily
END IF END IF
ELSE ELSE
usedVariableList(varDlgList(y).index).watch = 0
GOTO unWatch
END IF END IF
END IF END IF