home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 August / macformat-027.iso / mac / Shareware City / Developers / Oberon⁄F / Mac / Mod / MenuMgr (.txt) < prev    next >
Encoding:
Oberon Document  |  1994-06-07  |  5.1 KB  |  91 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Geneva
  16. Geneva
  17. StdStamps.StdViewDesc
  18. Geneva
  19. Geneva
  20. Geneva
  21. MODULE MacMenuMgr;
  22. (* cp 
  23.     menu definition procedures eliminated
  24.     IMPORT SYSTEM, MacTypes;
  25.     CONST
  26.         noMark* = 0;
  27.         HANDLE = 2;
  28.         CODE = 1;
  29.     TYPE
  30.         MenuInfo* = RECORD (MacTypes.Data)
  31.             menuID*: INTEGER;
  32.             menuWidth*,
  33.             menuHeight*: INTEGER;
  34.             menuProc: MacTypes.ProcHandle;
  35.             enableFlags*: SET;
  36.             menuData*: MacTypes.Str255
  37.         END;
  38.         MenuPtr* = POINTER TO MenuInfo;
  39.         MenuHandle* = POINTER [HANDLE] TO MenuInfo;
  40.     (** Initialization and Allocation **)
  41.     PROCEDURE [CODE] NewMenu* (menuID: INTEGER; menuTitle: MacTypes.Str255): MenuHandle    0A9H, 031H;
  42.     PROCEDURE [CODE] GetMenu* (resourceID: INTEGER): MenuHandle    0A9H, 0BFH;
  43.     PROCEDURE [CODE] DisposeMenu* (theMenu: MenuHandle) 0A9H, 032H;
  44.     (** Forming the Menus **)
  45.     PROCEDURE [CODE] AppendMenu* (theMenu: MenuHandle; data: MacTypes.Str255) 0A9H, 033H;
  46.     PROCEDURE [CODE] AddResMenu* (theMenu: MenuHandle; theType: MacTypes.ResType) 0A9H, 04DH;
  47.     PROCEDURE [CODE] InsertResMenu* (theMenu: MenuHandle; theType: MacTypes.ResType; afterItem: INTEGER) 0A9H, 051H;
  48.     PROCEDURE [CODE] InsMenuItem* (theMenu: MenuHandle; itemString: MacTypes.Str255; afterItem: INTEGER) 0A8H, 026H;
  49.     PROCEDURE [CODE] DelMenuItem* (theMenu: MenuHandle; item: INTEGER) 0A9H, 052H;
  50.     PROCEDURE [CODE] CountMItems* (theMenu: MenuHandle): INTEGER 0A9H, 050H;
  51.     PROCEDURE [CODE] GetMHandle* (menuID: INTEGER): MenuHandle 0A9H, 049H;
  52.     (** Forming the Menu Bar **)
  53.     PROCEDURE [CODE] InsertMenu* (theMenu: MenuHandle; beforeID: INTEGER)    0A9H, 035H;
  54.     PROCEDURE [CODE] DrawMenuBar* () 0A9H, 037H;
  55.     PROCEDURE [CODE] DeleteMenu* (menuID: INTEGER)    0A9H, 036H;
  56.     PROCEDURE [CODE] ClearMenuBar* 0A9H, 034H;
  57.     PROCEDURE [CODE] GetNewMBar* (menuBarID: INTEGER): MacTypes.Handle 0A9H, 0C0H;
  58.     PROCEDURE [CODE] GetMenuBar* (): MacTypes.Handle 0A9H, 03BH;
  59.     PROCEDURE [CODE] SetMenuBar* (menuList: MacTypes.Handle) 0A9H, 03CH;
  60.     (** Choosing From a Menu **)
  61.     PROCEDURE [CODE] MenuSelect* (startPt: MacTypes.Point): LONGINT 0A9H, 03DH;
  62.     PROCEDURE [CODE] MenuChoice* (): LONGINT 0AAH, 066H;
  63.     PROCEDURE [CODE] MenuKey* (ch: MacTypes.UnpackedChar): LONGINT 0A9H, 03EH;
  64.     PROCEDURE [CODE] HiliteMenu* (menuID: INTEGER) 0A9H, 038H;
  65.     PROCEDURE [CODE] PopUpMenuSelect* (theMenu: MenuHandle; top, left, popUpItem: INTEGER): LONGINT 0A8H, 00BH;
  66.     (** Controlling the Appearance of Items **)
  67.     PROCEDURE [CODE] SetItem* (theMenu: MenuHandle; item: INTEGER; itemString: MacTypes.Str255) 0A9H, 047H;
  68.     PROCEDURE [CODE] GetItem* (theMenu: MenuHandle; item: INTEGER; VAR itemString: MacTypes.Str255) 0A9H, 046H;
  69.     PROCEDURE [CODE] DisableItem* (theMenu: MenuHandle; item: INTEGER) 0A9H, 03AH;
  70.     PROCEDURE [CODE] EnableItem* (theMenu: MenuHandle; item: INTEGER) 0A9H, 039H;
  71.     PROCEDURE [CODE] CheckItem* (theMenu: MenuHandle; item: INTEGER; checked: BOOLEAN) 0A9H, 045H;
  72.     PROCEDURE [CODE] SetItemMark* (menu: MenuHandle; item: INTEGER; markChar: MacTypes.UnpackedChar) 0A9H, 044H;
  73.     PROCEDURE [CODE] GetItemMark* (menu: MenuHandle; item: INTEGER; VAR markChar: MacTypes.UnpackedChar) 0A9H, 043H;
  74.     PROCEDURE [CODE] SetItemIcon* (theMenu: MenuHandle; item: INTEGER; icon: INTEGER) 0A9H, 040H;
  75.     PROCEDURE [CODE] GetItemIcon* (theMenu: MenuHandle; item: INTEGER; VAR icon: INTEGER) 0A9H, 03FH;
  76.     PROCEDURE [CODE] SetItemStyle* (theMenu: MenuHandle; item: INTEGER; chStyle: MacTypes.Style) 0A9H, 042H;
  77.     PROCEDURE [CODE] GetItemStyle* (theMenu: MenuHandle; item: INTEGER; VAR chStyle: MacTypes.Style) 0A9H, 041H;
  78.     PROCEDURE [CODE] InitMenus*    0A9H, 030H;
  79. END MacMenuMgr.
  80. TextControllers.StdCtrlDesc
  81. TextControllers.ControllerDesc
  82. Containers.ControllerDesc
  83. Controllers.ControllerDesc
  84. TextRulers.StdRulerDesc
  85. TextRulers.RulerDesc
  86. TextRulers.StdStyleDesc
  87. TextRulers.StyleDesc
  88. TextRulers.AttributesDesc
  89. Geneva
  90. Documents.ControllerDesc
  91.