SET LIBRARY TO MENUID  

#include <pro_ext.h>

MENUID SysMenuId;
MENUID PopupId;
ITEMID PadId;

void putLong(long n)
{
   Value val;

   val.ev_type = 'I';
   val.ev_long = n;
   val.ev_width = 10;

   _PutValue(&val);
}

FAR onSelection(long menuId, long itemId)
{
   _PutStr("\nitemId = "); putLong(itemId);
}

void FAR StartUp()
{
   ITEMID Bar1Id;
   ITEMID Bar2Id;
   int Error;

   // Добавим новый заголовок меню в SYSMENU.
   SysMenuId = _MenuId(_SYSMENU);
   PadId = _GetNewItemId(SysMenuId);

   if (_NewItem(SysMenuId, PadId, _LASTITEM, "\\<Новый заголовок меню"))
   {
      _Error(623); /* "Menu item cannot be defined." */
   }

   // Определить меню.
   PopupId = _GetNewMenuId();

   if (Error = _NewMenu(MPOPUP, PopupId))
   {
      _Error(-Error);
   }
   Bar1Id = _GetNewItemId(PopupId);

   // ОСТОРОЖНО: Вызовите  _NewItem() перед следующим вызовом  _GetNewItemId().
   if (_NewItem(PopupId, Bar1Id, _LASTITEM, "\\<1ый пункт"))
   {
      _Error(623); /* "Menu item cannot be defined." */
   }
   Bar2Id = _GetNewItemId(PopupId);

   if (_NewItem(PopupId, Bar2Id, _LASTITEM, "\\<2ой пункт"))
   {
      _Error(623); /* "Menu item cannot be defined." */
   }

   // присоединить меню к новому заголовку меню
   _SetItemSubMenu(SysMenuId, PadId, PopupId);

   // Установить действие выбора.
   _OnSelection(PopupId, -1, onSelection);
}

void FAR ShutDown()
{
   _DisposeItem(SysMenuId, PadId);
   _DisposeMenu(PopupId);
}

FoxInfo myFoxInfo[] = {
   {"STARTUP",   (FPFI) StartUp,   CALLONLOAD,""},
   {"SHUTDOWN",   (FPFI) ShutDown,   CALLONUNLOAD, ""},
};
FoxTable _FoxTable = {
   (FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo
};