1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-05 00:40:26 +00:00

Fixes path changing routine in file dialog.

This commit is contained in:
FellippeHeitor 2021-07-31 02:28:56 -03:00
parent 99d252a0f2
commit a1ca1f4746

View file

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