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

Reset visible list to the first item when filteringwatch list

Browse source 
Now properly.
This commit is contained in:
FellippeHeitor 2021-10-03 12:27:33 -03:00
parent 7f49d223cd
commit b85d128faa
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
source/ide/ide_methods.bas
View file

@ -8217,6 +8217,7 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
DO 'main loop
'-------- generic display dialog box & objects --------
dlgUpdate:
idedrawpar p
f = 1: cx = 0: cy = 0
FOR i = 1 TO 100
@ -8245,6 +8246,7 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
'update visual page and cursor position
PCOPY 1, 0
IF cx THEN SCREEN , , 0, 0: LOCATE cy, cx, 1: SCREEN , , 1, 0
IF quickDlgUpdate THEN quickDlgUpdate = 0: RETURN
'-------- read input --------
change = 0
@ -8346,6 +8348,8 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
y = ABS(o(varListBox).sel)
IF y >= 1 AND y <= totalVisibleVariables THEN
o(varListBox).sel = y
quickDlgUpdate = -1: GOSUB dlgUpdate
tempIndex& = varDlgList(y).index
IF (focus = 5 AND (usedVariableList(tempIndex&).subfunc = currentScope$ OR usedVariableList(tempIndex&).subfunc = "")) OR focus = 6 THEN
'scope is valid (or we're setting a watchpoint)
@ -8829,6 +8833,8 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
y = ABS(o(varListBox).sel)
IF y >= 1 AND y <= totalVisibleVariables THEN
o(varListBox).sel = y
quickDlgUpdate = -1: GOSUB dlgUpdate
IF usedVariableList(varDlgList(y).index).watch <> 0 AND usedVariableList(varDlgList(y).index).isarray THEN
GOTO setArrayRange
END IF
@ -9062,7 +9068,7 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
'rebuild filtered list
GOSUB buildList
idetxt(o(varListBox).txt) = l$
o(varListBox).v1 = 1 'reset visible list to the first item
o(varListBox).sel = 0 'reset visible list to the first item
IF LEN(searchTerm$) THEN temp$ = ", filtered" ELSE temp$ = ""
idetxt(p.nam) = "Add Watch - Variable List (" + LTRIM$(STR$(totalVisibleVariables)) + temp$ + ")"
END IF