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

Fixes navigation (file dialog)

Browse source
This commit is contained in:
Fellippe Heitor 2021-07-25 22:20:28 -03:00
parent 62878630b5
commit 3523208b3c
1 changed files with 4 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
source/ide/ide_methods.bas
View file

@ -9205,13 +9205,10 @@ FUNCTION idefiledialog$(programname$, mode AS _BYTE)
IF focus = 3 THEN
IF (K$ = CHR$(13) OR info = 1) AND o(3).sel >= 1 THEN
path$ = idezchangepath(path$, idetxt(o(3).stx))
idetxt(o(2).txt) = idezfilelist$(path$, AllFiles, "")
idetxt(o(3).txt) = idezpathlist$(path$)
o(2).sel = -1
o(3).sel = -1
GOTO ideopenloop
newpath$ = idetxt(o(3).stx)
IF newpath$ = "" THEN newpath$ = ".."
f$ = newpath$
GOTO changepath
END IF
END IF