mirror of
https://github.com/QB64Official/qb64.git
synced 2024-08-22 06:45:09 +00:00
Enhancement: IDE starts looking in _STARTDIR$ for File->Open dialog.
This commit is contained in:
parent
887c0039a1
commit
8ba19d11fb
1 changed files with 1 additions and 16 deletions
|
@ -10032,24 +10032,9 @@ END FUNCTION
|
||||||
FUNCTION idezgetroot$
|
FUNCTION idezgetroot$
|
||||||
'note: does NOT including a trailing / or \ on the right
|
'note: does NOT including a trailing / or \ on the right
|
||||||
|
|
||||||
IF os$ = "WIN" THEN
|
|
||||||
SHELL _HIDE "cd >.\internal\temp\root.txt"
|
|
||||||
OPEN ".\internal\temp\root.txt" FOR INPUT AS #150
|
|
||||||
LINE INPUT #150, a$
|
|
||||||
idezgetroot$ = a$
|
|
||||||
CLOSE #150
|
|
||||||
EXIT FUNCTION
|
|
||||||
END IF
|
|
||||||
|
|
||||||
IF os$ = "LNX" THEN
|
|
||||||
SHELL _HIDE "pwd >./internal/temp/root.txt"
|
|
||||||
OPEN "./internal/temp/root.txt" FOR INPUT AS #150
|
|
||||||
LINE INPUT #150, a$
|
|
||||||
idezgetroot$ = a$
|
|
||||||
CLOSE #150
|
|
||||||
EXIT FUNCTION
|
|
||||||
END IF
|
|
||||||
|
|
||||||
|
idezgetroot$ = _STARTDIR$
|
||||||
END FUNCTION
|
END FUNCTION
|
||||||
|
|
||||||
FUNCTION idezpathlist$ (path$)
|
FUNCTION idezpathlist$ (path$)
|
||||||
|
|
Loading…
Reference in a new issue