mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 09:04:43 +00:00
Fixes Up One Level
button in Change UDT dialog.
This commit is contained in:
parent
d62e307126
commit
7c1f83f4f1
1 changed files with 9 additions and 0 deletions
|
@ -8866,6 +8866,7 @@ FUNCTION ideelementwatchbox$(currentPath$, elementIndexes$, level, singleElement
|
|||
|
||||
IF K$ = CHR$(27) OR (focus = 4 AND info <> 0) THEN
|
||||
IF singleElementSelection THEN
|
||||
ok = -4
|
||||
EXIT FUNCTION
|
||||
ELSE
|
||||
'build element list to return
|
||||
|
@ -8974,6 +8975,14 @@ FUNCTION ideelementwatchbox$(currentPath$, elementIndexes$, level, singleElement
|
|||
ELSEIF ok2 = -3 THEN
|
||||
'single selection canceled
|
||||
EXIT FUNCTION
|
||||
ELSEIF ok2 = -4 THEN
|
||||
i = y
|
||||
varDlgList(i).selected = 0
|
||||
ASC(idetxt(o(varListBox).txt), varDlgList(i).colorFlag) = 16
|
||||
ASC(idetxt(o(varListBox).txt), varDlgList(i).colorFlag2) = 2
|
||||
ASC(idetxt(o(varListBox).txt), varDlgList(i).bgColorFlag) = 17
|
||||
ASC(idetxt(o(varListBox).txt), varDlgList(i).indicator) = 32 'space
|
||||
_CONTINUE
|
||||
END IF
|
||||
END IF
|
||||
|
||||
|
|
Loading…
Reference in a new issue