From 65dcb0b4eb70cab33952b1bbf31bb1ef8999d9c2 Mon Sep 17 00:00:00 2001
From: Jim Monte <jimmonte@users.sourceforge.net>
Date: Sun, 26 May 2019 19:10:29 +0200
Subject: [PATCH] [PATCH #51] Added scrolling to input window

---
 src/winmain.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/winmain.c b/src/winmain.c
index 30a727418..5139a941b 100644
--- a/src/winmain.c
+++ b/src/winmain.c
@@ -523,7 +523,7 @@ MainWindowProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
 }
 
 
-/* Procedure for string window */
+/* Procedure for string (input) window */
 static LRESULT CALLBACK
 StringWindowProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
 {
@@ -950,9 +950,10 @@ WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpszCmdLine, int nCm
         }
     }
 
-    /* Create string window */
+    /* Create string window for input */
     swString = CreateWindowEx(WS_EX_NOPARENTNOTIFY, swClassName, swWindowName,
-                              ES_LEFT | WS_CHILD | WS_BORDER,
+            ES_LEFT | WS_CHILD | WS_BORDER |
+                    ES_AUTOHSCROLL, /* Allow text to scroll */
                               20, 20, 300, 100, hwMain, NULL, hInst, NULL);
     if (!swString)
         goto THE_END;