static boolean getmenutobuild (bigstring bsmenu, boolean flhierarchic, short *id, hdlmenu *hmenu, boolean *flbuiltin) { /* 5.0a24 dmb: before allocating a new menu, see if we want to build onto a builtin menu */ boolean flinfrontier; #ifdef flcomponent THz savezone; #if TARGET_API_MAC_CARBON == 1 savezone = LMGetApplZone(); #else savezone = GetZone (); #endif #endif #ifdef MACVERSION flinfrontier = iscurrentapplication (langipcself); #else flinfrontier = true; #endif if (flinfrontier && !flhierarchic && shelltgetmainmenu (bsmenu, hmenu, id)) { *flbuiltin = true; #ifdef WIN95VERSION // about needs to be last, but resource compiler doesn't allow empty menus if (*id == helpmenu) deletemenuitem (*hmenu, aboutitem); #endif return (true); } *flbuiltin = false; if (*id <= 0) { /*allocate a new menu id*/ if (!meallocmenuid (id)) return (false); } #ifdef flcomponent #if TARGET_API_MAC_CARBON == 1 //Code change by Timothy Paustian Monday, June 26, 2000 9:29:46 PM //This code makes no sense to me. LMSetApplZone(LMGetApplZone()); #else SetZone (ApplicationZone ()); #endif #endif *hmenu = Newmenu (*id, bsmenu); #ifdef flcomponent #if TARGET_API_MAC_CARBON == 1 LMSetApplZone(savezone); #else SetZone (savezone); #endif #endif return (hmenu != nil); } /*getmenutobuild*/
long MaxBlock(void) { return LMGetApplZone()->minCBFree; }