From ecc7986b0b679ce7cea86290687c22b371ac5624 Mon Sep 17 00:00:00 2001
From: Eugene Sandulenko
Date: Wed, 11 Dec 2019 01:10:41 +0100
Subject: DIRECTOR: LINGO: Pass menu to MacMenu in installMenu built-in

---
 engines/director/lingo/lingo-builtins.cpp | 21 ++++++++++++++++++---
 1 file changed, 18 insertions(+), 3 deletions(-)

(limited to 'engines/director/lingo')

diff --git a/engines/director/lingo/lingo-builtins.cpp b/engines/director/lingo/lingo-builtins.cpp
index 3355ddc0e0..f3b7e377c9 100644
--- a/engines/director/lingo/lingo-builtins.cpp
+++ b/engines/director/lingo/lingo-builtins.cpp
@@ -1177,7 +1177,9 @@ void Lingo::b_installMenu(int nargs) {
 	Common::String line;
 	int linenum = -1; // We increment it before processing
 
-	//Graphics::MacMenu *menu = g_director->_wm->addMenu();
+	Graphics::MacMenu *menu = g_director->_wm->addMenu();
+	int submenu;
+	Common::String submenuText;
 	//Graphics::MacMenuSubMenu *submenu = nullptr;
 
 	for (const byte *s = (const byte *)menuStxt.c_str(); *s; s++) {
@@ -1207,10 +1209,14 @@ void Lingo::b_installMenu(int nargs) {
 			while (*p && (*p == ' ' || *p == '\t'))
 				p++;
 
+			if (!submenuText.empty()) {
+				menu->createSubMenuFromString(submenu, submenuText.c_str(), 100);
+			}
+
 			warning("menu: '%s'", Common::toPrintable(p).c_str());
-			//menu->addMenuItem(nullptr, Common::String(p));
+			submenu = menu->addMenuItem(nullptr, Common::String(p));
 
-			//submenu = menu->addSubMenu(nullptr);
+			submenuText.clear();
 
 			continue;
 		}
@@ -1233,6 +1239,15 @@ void Lingo::b_installMenu(int nargs) {
 		command.trim();
 
 		warning("text: '%s'  command: '%s'", Common::toPrintable(text).c_str(), Common::toPrintable(command).c_str());
+
+		if (!submenuText.empty())
+			submenuText += ';';
+
+		submenuText += text;
+	}
+
+	if (!submenuText.empty()) {
+		menu->createSubMenuFromString(submenu, submenuText.c_str(), 100);
 	}
 
 	warning("STUB: b_installMenu(%d)", d.u.i);
-- 
cgit v1.2.3