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

Minor visual tweaks to Watch List dialog.

Browse source
This commit is contained in:
FellippeHeitor 2021-08-01 20:09:44 -03:00
parent b49d2e7326
commit 1573e2aa47
1 changed files with 15 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
source/ide/ide_methods.bas
View file

@ -7051,6 +7051,12 @@ SUB DebugMode
IF LEN(result$) THEN
'set address
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)
address%& = usedVariableList(tempIndex&).address
IF address%& > 0 THEN
@ -7088,7 +7094,7 @@ SUB DebugMode
END SELECT
cmd$ = "set address:" + MKL$(varSize&) + _MK$(_OFFSET, address%&) + value$
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
PCOPY 3, 0: SCREEN , , 3, 0
WHILE _MOUSEINPUT: WEND
@ -7782,11 +7788,17 @@ FUNCTION idevariablewatchbox$(currentScope$)
IF usedVariableList(varDlgList(i).index).subfunc = currentScope$ OR usedVariableList(varDlgList(i).index).subfunc = "" THEN
'scope is valid
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
idevariablewatchbox$ = MKL$(varDlgList(i).index) + v$
EXIT FUNCTION
ELSE
idevariablewatchbox$ = MKL$(0)
END IF
EXIT FUNCTION
ELSE
result = idemessagebox("Change Value", "Variable is out of scope.", "#OK")
END IF