mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-29 10:30:36 +00:00
Fix procedure to clear existing watchpoint
This commit is contained in:
parent
53c4d8ee56
commit
fcceba182c
|
@ -8581,16 +8581,18 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
|
||||||
END SELECT
|
END SELECT
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF INSTR(varType$, "STRING") = 0 THEN
|
IF thisReturnAction <> 3 THEN
|
||||||
v$ = op$ + actualValue$
|
IF INSTR(varType$, "STRING") = 0 THEN
|
||||||
IF v$ <> op$ + LTRIM$(STR$(VAL(actualValue$))) THEN
|
v$ = op$ + actualValue$
|
||||||
result = idemessagebox(dlgTitle$, "Invalid expression.\nYou can use =, <>, >, >=, <, <=, and a literal value\n(scientific notation not allowed).", "#OK")
|
IF v$ <> op$ + LTRIM$(STR$(VAL(actualValue$))) THEN
|
||||||
_KEYCLEAR
|
result = idemessagebox(dlgTitle$, "Invalid expression.\nYou can use =, <>, >, >=, <, <=, and a literal value\n(scientific notation not allowed).", "#OK")
|
||||||
GOTO getNewValueInput
|
_KEYCLEAR
|
||||||
|
GOTO getNewValueInput
|
||||||
|
END IF
|
||||||
END IF
|
END IF
|
||||||
END IF
|
|
||||||
|
|
||||||
v$ = op$ + " " + actualValue$ 'just to prettify it
|
v$ = op$ + " " + actualValue$ 'just to prettify it
|
||||||
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
cmd$ = ""
|
cmd$ = ""
|
||||||
|
|
Loading…
Reference in a new issue