mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-30 05:10:37 +00:00
Reset visible list to the first item when filteringwatch list
Now properly.
This commit is contained in:
parent
7f49d223cd
commit
b85d128faa
|
@ -8217,6 +8217,7 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
|
||||||
DO 'main loop
|
DO 'main loop
|
||||||
|
|
||||||
'-------- generic display dialog box & objects --------
|
'-------- generic display dialog box & objects --------
|
||||||
|
dlgUpdate:
|
||||||
idedrawpar p
|
idedrawpar p
|
||||||
f = 1: cx = 0: cy = 0
|
f = 1: cx = 0: cy = 0
|
||||||
FOR i = 1 TO 100
|
FOR i = 1 TO 100
|
||||||
|
@ -8245,6 +8246,7 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
|
||||||
'update visual page and cursor position
|
'update visual page and cursor position
|
||||||
PCOPY 1, 0
|
PCOPY 1, 0
|
||||||
IF cx THEN SCREEN , , 0, 0: LOCATE cy, cx, 1: SCREEN , , 1, 0
|
IF cx THEN SCREEN , , 0, 0: LOCATE cy, cx, 1: SCREEN , , 1, 0
|
||||||
|
IF quickDlgUpdate THEN quickDlgUpdate = 0: RETURN
|
||||||
|
|
||||||
'-------- read input --------
|
'-------- read input --------
|
||||||
change = 0
|
change = 0
|
||||||
|
@ -8346,6 +8348,8 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
|
||||||
y = ABS(o(varListBox).sel)
|
y = ABS(o(varListBox).sel)
|
||||||
|
|
||||||
IF y >= 1 AND y <= totalVisibleVariables THEN
|
IF y >= 1 AND y <= totalVisibleVariables THEN
|
||||||
|
o(varListBox).sel = y
|
||||||
|
quickDlgUpdate = -1: GOSUB dlgUpdate
|
||||||
tempIndex& = varDlgList(y).index
|
tempIndex& = varDlgList(y).index
|
||||||
IF (focus = 5 AND (usedVariableList(tempIndex&).subfunc = currentScope$ OR usedVariableList(tempIndex&).subfunc = "")) OR focus = 6 THEN
|
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)
|
'scope is valid (or we're setting a watchpoint)
|
||||||
|
@ -8829,6 +8833,8 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
|
||||||
y = ABS(o(varListBox).sel)
|
y = ABS(o(varListBox).sel)
|
||||||
|
|
||||||
IF y >= 1 AND y <= totalVisibleVariables THEN
|
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
|
IF usedVariableList(varDlgList(y).index).watch <> 0 AND usedVariableList(varDlgList(y).index).isarray THEN
|
||||||
GOTO setArrayRange
|
GOTO setArrayRange
|
||||||
END IF
|
END IF
|
||||||
|
@ -9062,7 +9068,7 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
|
||||||
'rebuild filtered list
|
'rebuild filtered list
|
||||||
GOSUB buildList
|
GOSUB buildList
|
||||||
idetxt(o(varListBox).txt) = l$
|
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$ = ""
|
IF LEN(searchTerm$) THEN temp$ = ", filtered" ELSE temp$ = ""
|
||||||
idetxt(p.nam) = "Add Watch - Variable List (" + LTRIM$(STR$(totalVisibleVariables)) + temp$ + ")"
|
idetxt(p.nam) = "Add Watch - Variable List (" + LTRIM$(STR$(totalVisibleVariables)) + temp$ + ")"
|
||||||
END IF
|
END IF
|
||||||
|
|
Loading…
Reference in a new issue