From 013e52fabdac535bf17dbb64a1d2e8db1726313d Mon Sep 17 00:00:00 2001
From: Christoph Oelckers <coelckers@users.noreply.github.com>
Date: Sat, 18 Feb 2017 01:31:01 +0100
Subject: [PATCH] - fixed: newly created list menus did not call their scripted
 virtual Init method.

---
 src/menu/menu.cpp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/menu/menu.cpp b/src/menu/menu.cpp
index c5b1b4071..f32c20373 100644
--- a/src/menu/menu.cpp
+++ b/src/menu/menu.cpp
@@ -630,7 +630,11 @@ void M_SetMenu(FName menu, int param)
 				if (cls == nullptr) cls = PClass::FindClass("ListMenu");
 
 				DListMenu *newmenu = (DListMenu *)cls->CreateNew();
-				newmenu->Init(DMenu::CurrentMenu, ld);
+				IFVIRTUALPTRNAME(newmenu, "OptionMenu", Init)
+				{
+					VMValue params[3] = { newmenu, DMenu::CurrentMenu, ld };
+					GlobalVMStack.Call(func, params, 3, nullptr, 0);
+				}
 				M_ActivateMenu(newmenu);
 			}
 		}