From ecca0621b332183557abc3566e3bd1a30de1f15e Mon Sep 17 00:00:00 2001
From: SMcNeill <SMcNeill@localhost>
Date: Fri, 11 Oct 2013 14:25:10 -0400
Subject: [PATCH] Minor tweak so that QB64 Window will allow for resizing.

---
 qb64.bas | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

diff --git a/qb64.bas b/qb64.bas
index e427a0a3b..0716cd422 100644
--- a/qb64.bas
+++ b/qb64.bas
@@ -1,7 +1,9 @@
 $CONSOLE
 $SCREENHIDE
 
-
+'### STEVE WAS HERE 10/11/2013 ###
+$RESIZE:ON
+'### END OF STEVE EDIT
 
 
 '$DYNAMIC
@@ -26931,6 +26933,27 @@ DO
 
     idedeltxt 'removes temporary strings (typically created by guibox commands) by setting an index to 0
 
+    '### STEVE WAS HERE 10/11/2013 ###
+
+    IF _RESIZE THEN
+        f# = FREEFILE
+        OPEN ".\internal\temp\options.bin" FOR BINARY AS f#
+        SEEK f#, 7
+        v% = _RESIZEWIDTH / 8: IF v% < 80 OR v% > 1000 THEN v% = 80
+        PUT f#, , v%
+        idewx = v%
+        v% = _RESIZEHEIGHT / 16: IF v% < 25 OR v% > 1000 THEN v% = 25
+        PUT f#, , v%
+        idewy = v%
+        CLOSE f#
+        WIDTH idewx, idewy
+        retval = 1
+        GOTO redraweverything
+    END IF
+    '### END OF STEVE EDIT
+
+
+
     IF skipdisplay = 0 THEN
 
         LOCATE , , 0