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

Fixes Watch List coming out incomplete when a filter was active.

Browse source
This commit is contained in:
FellippeHeitor 2021-08-15 20:21:06 -03:00
parent e728e28e3b
commit 3c775df2a4
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
source/ide/ide_methods.bas
View file

@ -7937,11 +7937,11 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
(IdeDebugMode > 0 AND focus = 6 AND info <> 0) THEN
variableWatchList$ = ""
longestVarName = 0
FOR y = 1 TO totalVisibleVariables
IF usedVariableList(varDlgList(y).index).watch THEN
thisLen = LEN(usedVariableList(varDlgList(y).index).name)
IF usedVariableList(varDlgList(y).index).isarray THEN
thisLen = thisLen + LEN(STR$(CVL(RIGHT$(usedVariableList(varDlgList(y).index).indexes, 4)))) - 1
FOR y = 1 TO totalVariablesCreated
IF usedVariableList(y).watch THEN
thisLen = LEN(usedVariableList(y).name)
IF usedVariableList(y).isarray THEN
thisLen = thisLen + LEN(STR$(CVL(RIGHT$(usedVariableList(y).indexes, 4)))) - 1
END IF
IF thisLen > longestVarName THEN
@ -7949,14 +7949,14 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
IF variableWatchList$ = "" THEN variableWatchList$ = SPACE$(4)
MID$(variableWatchList$, 1, 4) = MKL$(longestVarName)
END IF
IF usedVariableList(varDlgList(y).index).isarray THEN
temp$ = usedVariableList(varDlgList(y).index).indexes
IF usedVariableList(y).isarray THEN
temp$ = usedVariableList(y).indexes
DO WHILE LEN(temp$)
variableWatchList$ = variableWatchList$ + MKL$(varDlgList(y).index) + LEFT$(temp$, 4)
variableWatchList$ = variableWatchList$ + MKL$(y) + LEFT$(temp$, 4)
temp$ = MID$(temp$, 5)
LOOP
ELSE
variableWatchList$ = variableWatchList$ + MKL$(varDlgList(y).index) + MKL$(0)
variableWatchList$ = variableWatchList$ + MKL$(y) + MKL$(0)
END IF
END IF
NEXT