mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-01 11:30:37 +00:00
Display internal error when trying to watch an invalid UDT.
This commit is contained in:
parent
4fed87994b
commit
b4a7ca03c4
|
@ -8006,8 +8006,15 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
|
||||||
IF LEFT$(v$, LEN(temp$)) = temp$ THEN v$ = MID$(v$, LEN(temp$))
|
IF LEFT$(v$, LEN(temp$)) = temp$ THEN v$ = MID$(v$, LEN(temp$))
|
||||||
v$ = lineformat$(UCASE$(v$))
|
v$ = lineformat$(UCASE$(v$))
|
||||||
getid usedVariableList(varDlgList(y).index).id
|
getid usedVariableList(varDlgList(y).index).id
|
||||||
|
Error_Happened = 0
|
||||||
result$ = udtreference$("", v$, typ)
|
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
|
ELSE
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
|
Loading…
Reference in a new issue