jcs
/wallops
/amendments
/35
main: Add missing glue to make Desk Accessories work
jcs made amendment 35 about 1 year ago
--- main.c Tue Sep 6 13:11:46 2022
+++ main.c Tue Sep 6 13:36:23 2022
@@ -386,6 +386,18 @@ handle_menu(long menu_id)
ret = true;
break;
}
+ default: {
+ Str255 da;
+ GrafPtr save_port;
+
+ GetItem(apple_menu, LoWord(menu_id), &da);
+ GetPort(&save_port);
+ OpenDeskAcc(da);
+ SetPort(save_port);
+
+ ret = true;
+ break;
+ }
}
break;
case FILE_MENU_ID: