From b8526c502a1cb8045f422417c18924507e5601a5 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Tue, 14 Nov 2017 10:51:06 -0200
Subject: [PATCH] Fix "IDE_SortSUBs" setting not being properly saved/restored
 at startup.

---
 source/global/IDEsettings.bas | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/source/global/IDEsettings.bas b/source/global/IDEsettings.bas
index 62b7be9c5..14326d494 100644
--- a/source/global/IDEsettings.bas
+++ b/source/global/IDEsettings.bas
@@ -4,7 +4,7 @@ DIM SHARED IDEBackgroundColor AS _UNSIGNED LONG
 DIM SHARED IDEBackgroundColor2 AS _UNSIGNED LONG, IDEBracketHighlightColor AS _UNSIGNED LONG
 DIM SHARED IDEKeywordColor AS _UNSIGNED LONG, IDENumbersColor AS _UNSIGNED LONG
 DIM SHARED IDE_AutoPosition AS _BYTE, IDE_TopPosition AS INTEGER, IDE_LeftPosition AS INTEGER
-DIM SHARED IDE_BypassAutoPosition AS _BYTE
+DIM SHARED IDE_BypassAutoPosition AS _BYTE, idesortsubs AS _BYTE
 DIM SHARED IDENormalCursorStart AS LONG, IDENormalCursorEnd AS LONG
 DIM SHARED IDE_Index$
 DIM SHARED LoadedIDESettings AS INTEGER
@@ -178,6 +178,19 @@ IF LoadedIDESettings = 0 THEN
         SaveExeWithSource = 0
     END IF
 
+    result = ReadConfigSetting("IDE_SortSUBs", value$)
+    IF result THEN
+        IF value$ = "TRUE" OR VAL(value$) = -1 THEN
+            idesortsubs = -1
+        ELSE
+            idesortsubs = 0
+            WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_SortSUBs", "FALSE"
+        END IF
+    ELSE
+        WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_SortSUBs", "FALSE"
+        idesortsubs = 0
+    END IF
+
     result = ReadConfigSetting("ShowErrorsImmediately", value$)
     IF result THEN
         IF value$ = "TRUE" OR VAL(value$) = -1 THEN