From d10f01819f4f8ca5ccf6725360d79bf5dabd0755 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Sun, 11 Mar 2018 17:21:46 -0300
Subject: [PATCH] Restore ideroot$ retrieval and set idepath$ to _STARTDIR$.

---
 source/ide/ide_methods.bas | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index 2d6fdcf9b..c64e70088 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -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$)