From 5cced2721a119b58e122e967b24b836cdd4e00b3 Mon Sep 17 00:00:00 2001
From: Alexander Kromm <mmaulwurff@gmail.com>
Date: Thu, 1 Jul 2021 00:46:00 +0700
Subject: [PATCH] scroll if item selected by menu shortcut is out of screen

---
 wadsrc/static/zscript/engine/ui/menu/optionmenu.zs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/wadsrc/static/zscript/engine/ui/menu/optionmenu.zs b/wadsrc/static/zscript/engine/ui/menu/optionmenu.zs
index 305dcddb42..33cb6f081f 100644
--- a/wadsrc/static/zscript/engine/ui/menu/optionmenu.zs
+++ b/wadsrc/static/zscript/engine/ui/menu/optionmenu.zs
@@ -218,6 +218,11 @@ class OptionMenu : Menu
 					break;
 				}
 			}
+			if (mDesc.mSelectedItem <= mDesc.mScrollTop + mDesc.mScrollPos
+				|| mDesc.mSelectedItem >= VisBottom)
+			{
+				mDesc.mScrollPos = MAX(mDesc.mSelectedItem - mDesc.mScrollTop - 1, 0);
+			}
 		}
 		return Super.OnUIEvent(ev);
 	}