void menu::domenu()
{
if(mn!=0)delmenutype(mn);
mn=0;
if(att(p)) insertmenu(0);
if(bmagic(p)) insertmenu(1);
if(wmagic(p)) insertmenu(2);
if(exitem(p)) insertmenu(3);
insertmenu(4);
mc=mn;
}
static boolean menuinstallverb (hdltreenode hparam1, tyvaluerecord *v) {
hdlmenurecord hmenurecord;
hdlmenu hmainmenu;
short idmainmenu;
if (getmainmenuvalue (hparam1, &hmainmenu, &idmainmenu)) {
insertmenu (hmainmenu, idmainmenu + 1);
drawmenubar ();
(*v).data.flvalue = true;
return (true);
}
flnextparamislast = true;
if (!getmenuparaminmemory (hparam1, &hmenurecord))
return (false);
(*v).data.flvalue = meinstallmenubar (hmenurecord);
return (true);
} /*menuinstallverb*/
static boolean meinsertmenu (const tymenubarstackelement *menuinfo) {
hdlheadrecord hnode = (*menuinfo).hnode;
hdlheadrecord hnext;
tymenubarstackelement nextinfo;
hdlmenubarstack hnextstack;
if ((*menuinfo).flbuiltin)
return (true);
if ((*menuinfo).flhierarchic)
nextinfo.idmenu = -1;
else {
hnext = (**hnode).headlinkdown;
if (hnext == hnode) { /*last menu in this menubarstack*/
hnextstack = (**menubardata).hnext;
if (hnextstack == nil) /*it's the last user-defined menu, insert at end of list*/
nextinfo.idmenu = (short) rightmainmenu;
else {
pushmenubarglobals (hnextstack);
opoutermostsummit (&hnext);
megetmenuinfo (hnext, &nextinfo);
popmenubarglobals ();
}
}
else {
megetmenuinfo (hnext, &nextinfo);
}
}
return (insertmenu ((*menuinfo).hmenu, nextinfo.idmenu)); /*add to menubar, insert before idnext*/
} /*meinsertmenu*/
static boolean meinsertmenuitem (hdlmenu hmenu, short itemnumber, hdlheadrecord h, boolean flrecurse) {
boolean flitemenabled, flitemchecked;
char cmdchar;
bigstring bs;
tymenubarstackelement submenuinfo;
cmdchar = 0;
submenuinfo.idmenu = -1; /*force a menu id to be allocated, if we recurse*/
if (ophassubheads (h)) { /*a hierarchic menu is called for*/
if (flrecurse) {
if (!mebuildmenu (h, true, &submenuinfo, true)) /*recurse*/
return (false);
if (!mepushmenubarstack (&submenuinfo))
return (false);
if ((**menubardata).flactive)
insertmenu (submenuinfo.hmenu, insertsubmenu); /*insert it as a submenu*/
}
else {
if (!megetmenuinfo (h, &submenuinfo)) /*didn't find as title of hierarchical menu*/
return (false);
}
} /*has a submenu*/
else { /*a terminal menu item*/
cmdchar = mecmdkey (h);
if (cmdchar == (char) ' ') /*a space is equal to nothing*/
cmdchar = (char) 0;
}
getheadstring (h, bs);
mereduceformula (bs); /*filter formulas*/
mereducemenucodes (bs, &flitemenabled, &flitemchecked); /*4.1b8 dmb*/
//pushmenuitem (hmenu, id, bs);
Insertmenuitem (hmenu, itemnumber, bs);
if (!flitemenabled)
disablemenuitem (hmenu, itemnumber);
if (submenuinfo.idmenu != -1)
sethierarchicalmenuitem (hmenu, itemnumber, submenuinfo.hmenu, submenuinfo.idmenu);
else
if (flitemchecked)
checkmenuitem (hmenu, itemnumber, true); /*4.1b8 dmb*/
if (cmdchar != 0)
setmenuitemcommandkey (hmenu, itemnumber, cmdchar);
return (true);
} /*meinsertmenuitem*/
static void meactivatemenus (hdlmenubarstack hstack, boolean flactivate) {
/*
5.0b9 dmb: for builtin menus, call meremovemenu to remove the items.
when activating, rebuild the source node to recreate the main menu
items. submenus are still in the stack, so we don't want to recurse.
*/
register short i;
register short topstack;
register hdlmenubarstack hs = hstack;
tymenubarstackelement item;
hdlheadrecord hnode;
short ixstack;
short itemnumber;
if (hs == nil)
return;
if ((**hs).flactive == flactivate)
return;
pushmenubarglobals (hs);
if (flactivate) { /*insert main menus in outline order*/
opoutermostsummit (&hnode);
while (true) {
if (mefindinmenubar (hnode, true, &ixstack, &itemnumber)) {
item = (**hs).stack [ixstack];
if (item.flbuiltin)
mebuildmenu (item.hnode, false, &item, false);
else
insertmenu (item.hmenu, rightmainmenu);
}
if (opislastsubhead (hnode)) /*all the menus are loaded*/
break;
hnode = (**hnode).headlinkdown; /*advance to next menu definition*/
}
}
topstack = (**hs).topstack;
for (i = 0; i < topstack; i++) {
item = (**hs).stack [i];
// if (item.flbuiltin)
// continue;
if (item.idmenu != -1)
{
if (flactivate) {
if (item.flhierarchic)
inserthierarchicmenu (item.hmenu, item.idmenu);
}
else
meremovemenu (&item);
}
}
(**hs).flactive = flactivate;
medirtymenubar ();
popmenubarglobals ();
} /*meactivatemenus*/
boolean mebuildmenubar (hdlmenubarstack hstack) {
/*
build a menubar out of the summits in the menu outline structure. each summit
represents a menu, each sub under each summit is a first-level menu item.
the menubar is a hierarchic structure, we map the outline hierarchy onto a
hierarchy in the menubar.
7/14/90 DW: redraw the menubar after disposing of it. better staging for
the user when it's being called from the menu.buildmenubar verb.
3/31/91 DW: added param to firstmenuid param.
4/26/91 dmb: removed firstmenuid param; now covered by menubarlist field
*/
register hdlheadrecord h;
hdlheadrecord hnode;
tymenubarstackelement menuinfo;
boolean fl = false;
#ifdef WIN95VERSION
hdlmenu hwindowmenu;
MENUITEMINFO info;
hwindowmenu = shellmenuhandle (windowsmenu);
info.cbSize = sizeof (info);
info.fMask = MIIM_ID;
GetMenuItemInfo (hwindowmenu, 0, true, &info); // get the actual popup and all of it's info
rightmainmenu = info.wID; //GetMenuItemID (hmenu, 0);
#endif
pushmenubarglobals (hstack); /*make sure menubardata, outlinedata are set up*/
medisposemenus (hstack); /*get rid of any menus in the stack*/
opoutermostsummit (&hnode);
h = hnode; /*copy into register*/
while (true) {
menuinfo.idmenu = -1; /*allocate a new id*/
if (mebuildmenu (h, false, &menuinfo, true)) { /*no error building the menu*/
if (!mepushmenubarstack (&menuinfo))
break;
if ((**menubardata).flactive)
if (!menuinfo.flbuiltin)
insertmenu (menuinfo.hmenu, rightmainmenu); /*add to menubar, after all others*/
}
if (opislastsubhead (h)) { /*all the menus are loaded*/
medirtymenubar ();
fl = true;
break;
}
h = (**h).headlinkdown; /*advance to next menu definition*/
} /*while*/
popmenubarglobals ();
return (fl);
} /*mebuildmenubar*/
