mirror of
https://github.com/QB64Official/qb64.git
synced 2024-08-22 11:25:08 +00:00
Fixes path changing routine in file dialog.
This commit is contained in:
parent
99d252a0f2
commit
a1ca1f4746
1 changed files with 14 additions and 3 deletions
|
@ -9779,9 +9779,20 @@ FUNCTION idefiledialog$(programname$, mode AS _BYTE)
|
||||||
IF focus = 3 THEN
|
IF focus = 3 THEN
|
||||||
IF (K$ = CHR$(13) OR info = 1) AND o(3).sel >= 1 THEN
|
IF (K$ = CHR$(13) OR info = 1) AND o(3).sel >= 1 THEN
|
||||||
newpath$ = idetxt(o(3).stx)
|
newpath$ = idetxt(o(3).stx)
|
||||||
IF newpath$ = "" THEN newpath$ = ".."
|
IF newpath$ = "" THEN
|
||||||
f$ = newpath$
|
newpath$ = ".."
|
||||||
GOTO changepath
|
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
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue