mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 11:17:46 +00:00
Restore ideroot$ retrieval and set idepath$ to _STARTDIR$.
This commit is contained in:
parent
8ba19d11fb
commit
d10f01819f
1 changed files with 17 additions and 2 deletions
|
@ -371,7 +371,7 @@ FUNCTION ide2 (ignore)
|
|||
a$ = "QWERTYUIOP????ASDFGHJKL?????ZXCVBNM": x = 16: FOR i = 1 TO LEN(a$): idealtcode(ASC(MID$(a$, i, 1))) = x: x = x + 1: NEXT
|
||||
|
||||
ideroot$ = idezgetroot$
|
||||
idepath$ = ideroot$
|
||||
idepath$ = _STARTDIR$
|
||||
|
||||
'new blank text field
|
||||
idet$ = MKL$(0) + MKL$(0): idel = 1: ideli = 1: iden = 1: IdeBmkN = 0
|
||||
|
@ -10032,9 +10032,24 @@ END FUNCTION
|
|||
FUNCTION idezgetroot$
|
||||
'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
|
||||
|
||||
FUNCTION idezpathlist$ (path$)
|
||||
|
|
Loading…
Reference in a new issue