mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 11:17:46 +00:00
Minor visual tweaks to Watch List dialog.
This commit is contained in:
parent
b49d2e7326
commit
1573e2aa47
1 changed files with 15 additions and 3 deletions
|
@ -7051,6 +7051,12 @@ SUB DebugMode
|
||||||
IF LEN(result$) THEN
|
IF LEN(result$) THEN
|
||||||
'set address
|
'set address
|
||||||
tempIndex& = CVL(LEFT$(result$, 4))
|
tempIndex& = CVL(LEFT$(result$, 4))
|
||||||
|
IF tempIndex& = 0 THEN
|
||||||
|
PCOPY 3, 0: SCREEN , , 3, 0
|
||||||
|
WHILE _MOUSEINPUT: WEND
|
||||||
|
GOSUB UpdateDisplay
|
||||||
|
_CONTINUE
|
||||||
|
END IF
|
||||||
value$ = MID$(result$, 5)
|
value$ = MID$(result$, 5)
|
||||||
address%& = usedVariableList(tempIndex&).address
|
address%& = usedVariableList(tempIndex&).address
|
||||||
IF address%& > 0 THEN
|
IF address%& > 0 THEN
|
||||||
|
@ -7088,7 +7094,7 @@ SUB DebugMode
|
||||||
END SELECT
|
END SELECT
|
||||||
cmd$ = "set address:" + MKL$(varSize&) + _MK$(_OFFSET, address%&) + value$
|
cmd$ = "set address:" + MKL$(varSize&) + _MK$(_OFFSET, address%&) + value$
|
||||||
GOSUB SendCommand
|
GOSUB SendCommand
|
||||||
usedVariableList(tempIndex&).mostRecentValue = CHR$(16) + CHR$(4) + "Sent: " + MID$(result$, 5)
|
usedVariableList(tempIndex&).mostRecentValue = CHR$(16) + CHR$(4) + " Sent: " + MID$(result$, 5)
|
||||||
END IF
|
END IF
|
||||||
PCOPY 3, 0: SCREEN , , 3, 0
|
PCOPY 3, 0: SCREEN , , 3, 0
|
||||||
WHILE _MOUSEINPUT: WEND
|
WHILE _MOUSEINPUT: WEND
|
||||||
|
@ -7782,11 +7788,17 @@ FUNCTION idevariablewatchbox$(currentScope$)
|
||||||
IF usedVariableList(varDlgList(i).index).subfunc = currentScope$ OR usedVariableList(varDlgList(i).index).subfunc = "" THEN
|
IF usedVariableList(varDlgList(i).index).subfunc = currentScope$ OR usedVariableList(varDlgList(i).index).subfunc = "" THEN
|
||||||
'scope is valid
|
'scope is valid
|
||||||
a2$ = usedVariableList(varDlgList(i).index).mostRecentValue
|
a2$ = usedVariableList(varDlgList(i).index).mostRecentValue
|
||||||
v$ = ideinputbox$("Change Value", "#New value", a2$, "", idewx - 12, 0)
|
temp$ = ""
|
||||||
|
IF INSTR(usedVariableList(varDlgList(i).index).varType, "STRING") THEN
|
||||||
|
temp$ = " (cannot change string length)"
|
||||||
|
END IF
|
||||||
|
v$ = ideinputbox$("Change Value", "#New value" + temp$, a2$, "", idewx - 12, usedVariableList(varDlgList(i).index).strLength)
|
||||||
IF LEN(v$) THEN
|
IF LEN(v$) THEN
|
||||||
idevariablewatchbox$ = MKL$(varDlgList(i).index) + v$
|
idevariablewatchbox$ = MKL$(varDlgList(i).index) + v$
|
||||||
EXIT FUNCTION
|
ELSE
|
||||||
|
idevariablewatchbox$ = MKL$(0)
|
||||||
END IF
|
END IF
|
||||||
|
EXIT FUNCTION
|
||||||
ELSE
|
ELSE
|
||||||
result = idemessagebox("Change Value", "Variable is out of scope.", "#OK")
|
result = idemessagebox("Change Value", "Variable is out of scope.", "#OK")
|
||||||
END IF
|
END IF
|
||||||
|
|
Loading…
Reference in a new issue