main menu uses actual menu component

Author: mstop4

current-scripts/Demos/useful-scripts/objects/obj_demo_title/Create_0.gml

@@ -23,3 +23,10 @@ room_names = [
 	"Web"
 ];
 
+menu = instance_create_layer(32, 64, layer, obj_menu);
+menu.menu_init(fnt_demo, spr_arrow, "menu_demo_control_handler");
+menu.line_spacing = 16;
+
+for (var i=0; i<num_rooms; i++) {
+	menu.add_menu_selectable(room_names[i], "go_to_demo", [ rooms[i] ]);
+}

current-scripts/Demos/useful-scripts/objects/obj_demo_title/Draw_0.gml

@@ -2,9 +2,4 @@ draw_set_colour(c_white);
 draw_set_font(fnt_title);
 draw_set_halign(fa_left);
 draw_set_valign(fa_top);
-draw_text(16, 16, "Useful GML Script Demos");
-
-draw_set_font(fnt_demo);
-for (var i=0; i<num_rooms; i++) {
-	draw_text(16, 48+32*i, string(i+1) + " - " + string(room_names[i]));
-}
+draw_text(16, 16, "Useful GML Script Demos");

current-scripts/Demos/useful-scripts/objects/obj_demo_title/KeyPress_1.gml

@@ -6,4 +6,8 @@ if (control_state.pressed_state[MENU_CONTROLS.UP]) {
 
 if (control_state.pressed_state[MENU_CONTROLS.DOWN]) {
 	pos = wrap(pos+1, 0, num_items-1);
+}
+
+if (control_state.pressed_state[MENU_CONTROLS.CONFIRM]) {
+	script_execute(items[| pos].on_confirm, items[| pos].args);
 }

current-scripts/Demos/useful-scripts/objects/obj_demo_title/obj_demo_title.yy

@@ -1,7 +1,7 @@
 menu = instance_create_layer(32, 32, layer, obj_menu);
 menu.menu_init(fnt_demo, spr_arrow, "menu_demo_control_handler");
 
-menu.add_menu_selectable("Foo", -1);
-menu.add_menu_selectable("Bar", -1);
-menu.add_menu_selectable("Baz", -1);
-menu.add_menu_selectable("Qux", -1);
+menu.add_menu_selectable("Foo", -1, []);
+menu.add_menu_selectable("Bar", -1, []);
+menu.add_menu_selectable("Baz", -1, []);
+menu.add_menu_selectable("Qux", -1, []);

current-scripts/Demos/useful-scripts/objects/obj_menu/Step_1.gml

@@ -15,14 +15,18 @@ function keycode_to_string(_keycode) {
 				return "SHIFT";
       case vk_lshift:
         return "LEFT SHIFT";
-      case vk_lcontrol:
-        return "LEFT CTRL";
-      case vk_lalt:
-        return "LEFT ALT";
       case vk_rshift:
         return "RIGHT SHIFT";
+			case vk_control:
+				return "CTRL";
+      case vk_lcontrol:
+        return "LEFT CTRL";
       case vk_rcontrol:
         return "RIGHT CTRL";
+			case vk_alt:
+				return "ALT";
+      case vk_lalt:
+        return "LEFT ALT";
       case vk_ralt:
         return "RIGHT ALT";
       case vk_pause:

current-scripts/Demos/useful-scripts/objects/obj_menu_demo/Create_0.gml

@@ -0,0 +1,3 @@
+function go_to_demo(_args) {
+	room_goto(_args[0]);
+}