From ce0c8a4507f0632b526a3cd0bbb50a4d3d5c3105 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Fri, 12 Feb 2016 07:20:17 -0200
Subject: [PATCH] Add option to restore last window position at startup
 (Display dialog).

Setting already existed in config.txt and could be manually set (actual code to remember window position written by Steve).
---
 source/ide/ide_methods.bas | 56 ++++++++++++++++++++++++--------------
 1 file changed, 36 insertions(+), 20 deletions(-)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index c00309800..1cca4d382 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -9757,7 +9757,7 @@ i = 0
 p.x = (80 \ 2) - 60 \ 2
 p.y = (25 \ 2) - 16 \ 2
 p.w = 60
-p.h = 16
+p.h = 18
 p.nam = idenewtxt("Display")
 
 a2$ = str2$(idewx)
@@ -9781,6 +9781,12 @@ o(i).v1 = LEN(a2$)
 i = i + 1
 o(i).typ = 4 'check box
 o(i).y = 8
+o(i).nam = idenewtxt("Restore window #position at startup")
+if IDE_AutoPosition then o(i).sel = 1
+
+i = i + 1
+o(i).typ = 4 'check box
+o(i).y = 10
 o(i).nam = idenewtxt("Custom #Font:")
 o(i).sel = idecustomfont
 
@@ -9788,7 +9794,7 @@ a2$ = idecustomfontfile$
 i = i + 1
 o(i).typ = 1
 o(i).x = 10
-o(i).y = 10
+o(i).y = 12
 o(i).nam = idenewtxt("File #Name")
 o(i).txt = idenewtxt(a2$)
 o(i).v1 = LEN(a2$)
@@ -9797,14 +9803,14 @@ a2$ = str2$(idecustomfontheight)
 i = i + 1
 o(i).typ = 1
 o(i).x = 10
-o(i).y = 13
+o(i).y = 15
 o(i).nam = idenewtxt("#Row Height (Pixels)")
 o(i).txt = idenewtxt(a2$)
 o(i).v1 = LEN(a2$)
 
 i = i + 1
 o(i).typ = 3
-o(i).y = 16
+o(i).y = 18
 o(i).txt = idenewtxt("OK" + sep + "#Cancel")
 o(i).dft = 1
 '-------- end of init --------
@@ -9834,7 +9840,7 @@ DO 'main loop
 
     '-------- custom display changes --------
     COLOR 0, 7: LOCATE p.y + 2, p.x + 2: PRINT "Window Size -";
-    COLOR 0, 7: LOCATE p.y + 9, p.x + 29: PRINT " Monospace TTF Font ";
+    COLOR 0, 7: LOCATE p.y + 10, p.x + 29: PRINT " Monospace TTF Font ";
     '-------- end of custom display changes --------
 
     'update visual page and cursor position
@@ -9911,11 +9917,11 @@ DO 'main loop
     END IF
     idetxt(o(2).txt) = a$
 
-    a$ = idetxt(o(4).txt)
-    IF LEN(a$) > 1024 THEN a$ = LEFT$(a$, 1024)
-    idetxt(o(4).txt) = a$
-
     a$ = idetxt(o(5).txt)
+    IF LEN(a$) > 1024 THEN a$ = LEFT$(a$, 1024)
+    idetxt(o(5).txt) = a$
+
+    a$ = idetxt(o(6).txt)
     IF LEN(a$) > 2 THEN a$ = LEFT$(a$, 2) '2 character limit
     FOR i = 1 TO LEN(a$)
         a = ASC(a$, i)
@@ -9926,24 +9932,24 @@ DO 'main loop
         IF LEN(a$) THEN a = VAL(a$) ELSE a = 0
         IF a < 8 THEN a$ = "8"
     END IF
-    idetxt(o(5).txt) = a$
+    idetxt(o(6).txt) = a$
 
 
 
-    IF K$ = CHR$(27) OR (focus = 7 AND info <> 0) THEN EXIT FUNCTION
-    IF K$ = CHR$(13) OR (focus = 6 AND info <> 0) THEN
+    IF K$ = CHR$(27) OR (focus = 8 AND info <> 0) THEN EXIT FUNCTION
+    IF K$ = CHR$(13) OR (focus = 7 AND info <> 0) THEN
 
         x = 0 'change to custom font
 
         'get size in v%
-        v$ = idetxt(o(5).txt): IF v$ = "" THEN v$ = "0"
+        v$ = idetxt(o(6).txt): IF v$ = "" THEN v$ = "0"
         v% = VAL(v$)
         IF v% < 8 THEN v% = 8
         IF v% > 99 THEN v% = 99
         IF v% <> idecustomfontheight THEN x = 1
 
-        IF o(3).sel <> idecustomfont THEN
-            IF o(3).sel = 0 THEN
+        IF o(4).sel <> idecustomfont THEN
+            IF o(4).sel = 0 THEN
                 _FONT 16
                 _FREEFONT idecustomfonthandle
             ELSE
@@ -9952,14 +9958,14 @@ DO 'main loop
         END IF
 
 
-        v$ = idetxt(o(4).txt): IF v$ <> idecustomfontfile$ THEN x = 1
+        v$ = idetxt(o(5).txt): IF v$ <> idecustomfontfile$ THEN x = 1
 
-        IF o(3).sel = 1 AND x = 1 THEN
+        IF o(4).sel = 1 AND x = 1 THEN
             oldhandle = idecustomfonthandle
             idecustomfonthandle = _LOADFONT(v$, v%, "MONOSPACE")
             IF idecustomfonthandle = -1 THEN
                 'failed! - revert to default settings
-                o(3).sel = 0: idetxt(o(4).txt) = "c:\windows\fonts\lucon.ttf": idetxt(o(5).txt) = "21": _FONT 16
+                o(4).sel = 0: idetxt(o(5).txt) = "c:\windows\fonts\lucon.ttf": idetxt(o(6).txt) = "21": _FONT 16
             ELSE
                 _FONT idecustomfonthandle
             END IF
@@ -9983,20 +9989,25 @@ DO 'main loop
         idewy = v% - idesubwindow
 
         v% = o(3).sel
+        IF v% <> 0 THEN v% = -1
+        IDE_AutoPosition = v%
+
+        v% = o(4).sel
         IF v% <> 0 THEN v% = 1
         idecustomfont = v%
 
-        v$ = idetxt(o(4).txt)
+        v$ = idetxt(o(5).txt)
         IF LEN(v$) > 1024 THEN v$ = LEFT$(v$, 1024)
         idecustomfontfile$ = v$
         v$ = v$ + SPACE$(1024 - LEN(v$))
 
-        v$ = idetxt(o(5).txt): IF v$ = "" THEN v$ = "0"
+        v$ = idetxt(o(6).txt): IF v$ = "" THEN v$ = "0"
         v% = VAL(v$)
         IF v% < 8 THEN v% = 8
         IF v% > 99 THEN v% = 99
         idecustomfontheight = v%
 
+
         WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Width", str$(idewx)
         WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Height", str$(idewy)
         IF idecustomfont THEN
@@ -10004,6 +10015,11 @@ DO 'main loop
         ELSE
             WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CustomFont", "FALSE"
         END IF
+        IF IDE_AutoPosition THEN
+            WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoPosition", "TRUE"
+        ELSE
+            WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoPosition", "FALSE"
+        END IF
         WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CustomFont$", idecustomfontfile$
         WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CustomFontSize", str$(idecustomfontheight)