QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-29 09:20:38 +00:00
Code Issues Releases Wiki Activity

Display internal error when trying to watch an invalid UDT.

Browse source
This commit is contained in:
FellippeHeitor 2021-08-13 11:51:52 -03:00
parent 4fed87994b
commit b4a7ca03c4
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
source/ide/ide_methods.bas
View file

@ -8006,8 +8006,15 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
IF LEFT$(v$, LEN(temp$)) = temp$ THEN v$ = MID$(v$, LEN(temp$))
v$ = lineformat$(UCASE$(v$))
getid usedVariableList(varDlgList(y).index).id
Error_Happened = 0
result$ = udtreference$("", v$, typ)
result = idemessagebox("Result", v$ + "\n" + result$ + "\n" + STR$(typ), "#OK")
IF Error_Happened THEN
result = idemessagebox("Error", Error_Message, "#OK")
GOTO unWatch
ELSE
result = idemessagebox("Result", v$ + "\n" + result$ + "\n" + STR$(typ), "#OK")
GOTO unWatch 'temporarily
END IF
ELSE
END IF
END IF