From 310eb662d00f6112fdf8b9efdad5f01cdb2449e1 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Wed, 23 Mar 2016 11:22:22 -0300
Subject: [PATCH] Use the new _INCLERRORLINE to give more detailed error
 messages (IDE).

---
 source/global/version.bas  |  2 +-
 source/ide/ide_methods.bas | 20 +++++++++++++++-----
 2 files changed, 16 insertions(+), 6 deletions(-)

diff --git a/source/global/version.bas b/source/global/version.bas
index c52ca39b7..f67542c21 100644
--- a/source/global/version.bas
+++ b/source/global/version.bas
@@ -3,5 +3,5 @@ DIM SHARED BuildNum AS STRING
 Version$ = "1.000"
 'BuildNum format is YYYYMMDD/id, where id is a ever-increasing
 'integer. If you make a change, update the date and increase the id!
-BuildNum$ = "20160323/4"
+BuildNum$ = "20160323/5"
 
diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index 1513774da..1945cde5d 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -116,11 +116,21 @@ c$ = idecommand$
 'report any IDE errors which have occurred
 IF ideerror THEN
     mustdisplay = 1
-    IF ideerror = 1 THEN ideerrormessage "IDE module error"
-    IF ideerror = 2 THEN ideerrormessage "File not found"
-    IF ideerror = 3 THEN ideerrormessage "File access error": CLOSE #150
-    IF ideerror = 4 THEN ideerrormessage "Path not found"
-                         ideerrormessage str$(err) + " on line" + str$(_errorline)
+    IF ideerror = 1 THEN ideerrormessageTITLE$ = "IDE module error"
+    IF ideerror = 2 THEN ideerrormessageTITLE$ = "File not found"
+    IF ideerror = 3 THEN ideerrormessageTITLE$ = "File access error": CLOSE #150
+    IF ideerror = 4 THEN ideerrormessageTITLE$ =  "Path not found"
+    errorat$ = "On line: " + str2$(_errorline)
+    inclerrorline = _inclerrorline
+    if inclerrorline then errorat$ = errorat$ + " (included line: " + str2$(inclerrorline) + ")"
+    qberrorcode = err
+    if qberrorcode then
+        ideerrormessageTITLE$ = "Error " + str2$(qberrorcode) + ": " + ideerrormessageTITLE$
+    else
+        ideerrormessageTITLE$ = "Error: " + ideerrormessageTITLE$
+    endif
+    PCOPY 3, 0
+    idemessagebox ideerrormessageTITLE$, errorat$
 END IF
 
 IF (ideerror = 2 or ideerror = 3 or ideerror = 4) AND (AttemptToLoadRecent = -1) THEN