TweetFollow Us on Twitter

Menu Command Unit
Volume Number:7
Issue Number:9
Column TagPascal Procedures

Related Info: Menu Manager

Menu Command Handler Unit

By David T. Craig, Kansas City, MO

Note: Source code files accompanying article are located on MacTech CD-ROM or source code disks.

[David has been involved with the Macintosh on the software side since its introduction in 1984. Currently he works as a Macintosh programmer for a small custom application development company in Kansas City, Kansas.]

Introduction

This unit manages menu commands in a manner similar to Apple’s MacApp “command menu” mechanism. Each application menu item should contain a unique “command number”, an integer value in the range 1 to 32767. This module scans the installed menus, parses the command numbers from each menu item, and stores the item command numbers in a table. When a menu item is selected, this module should be called to return the command number of the selected item. The parsed menu command number is also removed from the menu item.

Having each menu item define its own unique command value simplifies the job of the application programmer. Instead of using the menu id and menu item values for menu handling, the programmer needs only to use the unique command numbers. Using command numbers allows the programmer to move menu items around in the resource file without having to change the application source code. Users also benefit since they too can move menu items around via ResEdit as long as they don’t alter the item’s command number.

A menu item has a command number if the menu contains the character “#” followed by the command number. An example follows for a typical file menu (format compatible with Apple’s MPW Rez tool):

#1

“New#1”,noicon,nokey,nomark, plain;
“Open...#2”,noicon,”O”,nomark,plain;
“-”,noicon,nokey,nomark,plain;
“Quit#3”, noicon,”Q”,nomark,plain;

Note that the command number must exist at the menu item’s end.

Using this Unit

This module contains several routines which completely control access to menu command numbers.

Routine MC_Build_Menu_Command_Table builds the menu command table for an application. Call this at the start of an application after the application menus have been installed. This routine takes a pointer to a list of menu handles which define all the application menus. In Pascal a simple array of MenuHandle is adequate.

Once you are completely finished with all the menus call routine MC_UnBuild_Menu_Command_Table. This should generally be called when the application quits.

Routine MC_Fetch_Menu_Command should be called when the user selects a menu item via either the ROM MenuSelect or ROM MenuKey routines. This routine returns the command number for the selected menu item.

Routine MC_Fetch_Menu_ID_and_Item returns the menu id and item numbers for a menu command number. Once this routine is used you may use the command’s id and item numbers with the many routines supported by the Apple Menu Manager.

Routine MC_Version returns the version number and compilation date and time of this module.

Applications supporting menus that change may also use this module (MicroSoft Word is an example of an application with changing menus). Whenever the menus change you must deallocate the built menu command table and rebuild the new menu command table.

WARNING: The caller of these routines must not make any assumptions about the contents of a menu command table. This data structure, which is referenced thru a handle, must be considered off limits since its internal layout may change. Use only the public routines in this module and you will have no problems.

Unit Interface Routines
PROCEDURE MC_Version (VAR version_phrase: Str255);

PROCEDURE MC_Build_Menu_Command_Table
     (menu_list: Ptr;
      menu_count: INTEGER;
      VAR command_table: Handle;
      VAR good_build: BOOLEAN);  

PROCEDURE MC_UnBuild_Menu_Command_Table
      (VAR command_table: Handle;
       VAR good_unbuild: BOOLEAN);

PROCEDURE MC_Fetch_Menu_Command
     (command_table: Handle;
      menu_info: LONGINT;
      VAR menu_command: INTEGER);  

PROCEDURE MC_Fetch_Menu_ID_and_Item
     (command_table: Handle;
      menu_command: INTEGER;
      VAR menu_id: INTEGER;
      VAR menu_item: INTEGER);
Listing:  UMenuCommand.p

{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ •                                                        • }
{ •     ----------------------------------------------     • }
{ •       APPLE MACINTOSH MENU COMMAND PARSER MODULE       • }
{ •     ----------------------------------------------     • }
{ •                                                        • }
{ • Author ...... David T. Craig                           • }
{ • Address ..... 736 Edgewater, Wichita, Kansas 67230     • }
{ • Date ........ 1989/1990                                • }
{ • Version ..... 1.0.0                                    • }
{ • Language .... Apple MPW and Think Pascal 3.0           • }
{ • Computer .... Apple Macintosh                          • }
{ •                                                        • }
{ • Copyright ... NOT Copyright (C) 1990 by David T. Craig • }
{ •                                                        • }
{ • PURPOSE:                                               • }
{ •                                                        • }
{ • This module manages menu commands  similar to Apple’s MacApp “command 
menu” mechanism.  • }

{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ •                                                        • }
{ •                   Modification Notes                   • }
{ •                                                        • }
{ • Originally written in Lisa Pascal on a Lisa, ported to MPW and thento 
Think Pascal.                                   • }
{ •                                                        • }
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ •          NOT COPYRIGHT 1990 BY DAVID T. CRAIG          • }
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }

UNIT UMenuCommand;
{ ########################################################## }
INTERFACE
{ ########################################################## }

{$DECL for_MPW}
{$SETC for_MPW:=FALSE}

{$DECL for_THINK}
{$SETC for_THINK:=TRUE}

{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ •                    EXTERNAL MODULES                    • }
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{$IFC for_MPW}
USES
 MemTypes, QuickDraw, OSIntf, ToolIntf, PackIntf, Traps, PasLibIntf;
{$ENDC}

{$IFC for_THINK}
USES
 MemTypes, QuickDraw, OSIntf, ToolIntf, Packages;
{$ENDC}

{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ •                   COMPILER DIRECTIVES                  • }
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }

{$IFC for_MPW}
{$R+}
 { array, string, & subrange range checking [MPW PASCAL 3.0] }
{$OV+}
 { integer overflow checking [MPW PASCAL 3.0] }
{$SC+}
 { short-circuit boolean evaluation [MPW PASCAL 3.0] }
{$ENDC}

{$IFC for_THINK}
{$R+}
 { array, string,& subrange range checking [THINK PASCAL 3.0] }
{$N+}
 { routine name inclusion for debugger [THINK PASCAL 3.0] }
{$V+}
 { integer overflow checking [THINK PASCAL 3.0] }
{$ENDC}

{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ •                PUBLIC MODULE INTERFACE                 • }
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
CONST
 MC_c_NoCommand = 0; { menu command value for NO COMMAND }

{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ • Routine ... MC_Version }
{ • Purpose ... Return the version number and compilation date of the 
module }
{ • Input ..... (none) }
{ • Output .... version_phrase - version number and compilation date 
info }
{ • Notes ..... Use this if you are interested in having this information. 
}
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }

PROCEDURE MC_Version (VAR version_phrase: Str255);

{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ • Routine ... MC_Build_Menu_Command_Table }
{ • Purpose ... Build a new menu command tabe from a list of menus }
{ • Input ..... menu_list     - pointer to list of menus to build from 
}
{ •             menu_count    - no. menus in the menu list }
{ • Output .... command_table - build menu command table }
{ •             good_build    - build went well flag }
{ • Notes ..... Call this routine after your application’s menus are 
defined. }
{ •             Using an array of MenuHandles for the menu list is an 
easy  way to pass the menus to this routine.  Duplicate command numbers 
are detected and result in good_build returning False. }
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }

PROCEDURE MC_Build_Menu_Command_Table (menu_list: Ptr; { in }
 menu_count: INTEGER; { in }
 VAR command_table: Handle; { out }
 VAR good_build: BOOLEAN); { out }

{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ • Routine ... MC_UnBuild_Menu_Command_Table }
{ • Purpose ... Unbuild a build menu command table }
{ • Input ..... command_table - built menu command table }
{ • Output .... command_table - deallocated menu command table (=NIL) 
}
{ •             good_unbuild - unbuild process went well flag }
{ • Notes ..... This routine should be called when you are completely 
done with a menu command table. }
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }

PROCEDURE MC_UnBuild_Menu_Command_Table (VAR command_table: Handle;
 { in/out } VAR good_unbuild: BOOLEAN); { in }

{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ • Routine ... MC_Fetch_Menu_Command }
{ • Purpose ... Fetch the menu command command for a menu selected by 
 the ROM Menu Manager routine MenuSelect }
{ • Input ..... command_table - command table from MC_Build_Menu_Command_Table 
}
{ •             menu_info   - menu info from  ROM MenuSelect }
{ • Output .... menu_command  - selected menu command value (0=no command) 
}
{ • Notes ..... Call this routine when the user has selected a menu and 
you have called ROM MenuSelect or ROM MenuKey. }
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
PROCEDURE MC_Fetch_Menu_Command(command_table: Handle; {in}
 menu_info: LONGINT; { in }
 VAR menu_command: INTEGER); { out }

{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ • Routine ... MC_Fetch_Menu_ID_and_Item }
{ • Purpose ... Return the menu id and item numbers for a command number 
}
{ • Input ..... command_table - command table from MC_Build_Menu_Command_Table 
}
{ •             menu_command  - menu command number }
{ • Output .... menu_id       - menu id   value for the command number 
}
{ •             menu_item     - menu item value for the command number 
}
{ • Notes ..... If the command number is invalid, then menu_id and menu_item 
are set to -1, an invalid value for either of these numbers. }
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
PROCEDURE MC_Fetch_Menu_ID_and_Item(command_table:Handle;{in}
 menu_command: INTEGER; { in }
 VAR menu_id: INTEGER; { out }
 VAR menu_item: INTEGER); { out }

{ ########################################################## }
IMPLEMENTATION
{ ########################################################## }

{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ •                PRIVATE MODULE CONSTANTS                • }
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
CONST
 pc_module_version = ‘1.0.0’; { module version number }
 pc_command_identifier = ‘#’;{ command # character for menus}
 pc_command_num_min = 1; { min and max menu command values }
 pc_command_num_max = MAXINT;

{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ •                PRIVATE MODULE TYPES                    • }
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
TYPE
 { general data types }
 pt_word = 0..MAXINT;

 { list of menu handles used indirectly by callers }
 pt_menu_list = ARRAY[1..1] OF MenuHandle;
 pt_menu_list_ptr = ^pt_menu_list;

 { menu command structure for a single menu item }
 pt_command_info = RECORD
 ci_command_number: INTEGER;{ unique command number }
 ci_menu_id: INTEGER; { menu id   number for command }
 ci_menu_item: pt_word;  { menu item number for command }
 END;

 pt_command_list = ARRAY[1..1] OF pt_command_info;

 pt_command_list_p = ^pt_command_list;
 pt_command_list_h = ^pt_command_list_p;

 { NOTE: The menu commands for all the menus in an application are stored 
as a dynamic array structure.  This structure acts just like a simple 
array, but its size may vary.  Access to the elements of this array requires 
disabling range       checking since the array from Pascal’s perspective 
contains only a single element                                     }

{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ •                                                        • }
{ •                PRIVATE MODULE ROUTINES                 • }
{ •                                                        • }
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }

{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ • Routine ... find_Command_in_Table }
{ • Purpose ... Attempt to locate a command number in a menu command 
table }
{ • Input ..... the_command_table - menu command table }
{ •             the_command       - command number to find }
{ • Output .... the_table_index   - index of found command number (0=not 
found) }
{ •             the_command_info  - info about the found command }
{ • Notes ..... Output parm the_table_index is set to 0 (zero) if the 
command number does not exist in menu command table. }
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
PROCEDURE find_Command_in_Table (the_command_table: pt_command_list_h;
 { in }
 the_command: INTEGER; { in }
 VAR the_table_index: pt_word; { out }
 VAR the_command_info: pt_command_info); { out }
 VAR
 list_size: Size; { physical byte size of command list }
 list_records: pt_word;   { no. records in command list }
 error: INTEGER;  { error result for a MemMgr call }
 BEGIN  { ---------- find_Command_in_Table ---------- }
 the_table_index := 0; { assume the command does not exist in the table 
}
 IF the_command_table <> NIL THEN
 BEGIN
 list_size := GetHandleSize(Handle(the_command_table));
 error := MemError;

 IF (error = NoErr) AND (list_size > 0) THEN
 BEGIN
 list_records := list_size DIV SIZEOF(the_command_info);

 WHILE (list_records >= 1) AND (the_table_index = 0) DO
 BEGIN
 {$PUSH}
 {$R-}
 the_command_info := the_command_table^^[list_records];
 {$POP}

 IF the_command = the_command_info.ci_command_number THEN
 BEGIN
 the_table_index := list_records; 
 { !!! GOTCHA !!! }
 END;

 list_records := list_records - 1;
 END; { WHILE list_records }
 END;
 END;
 END;   { ---------- find_Command_in_Table ---------- }

{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ • Routine ... add_Command_to_CmdList }
{ • Purpose ... Add a single menu command structure to the end of an 
}
{ •             existing menu command table }
{ • Input ..... the_command_table  - menu command table }
{ •             the_menu_id        - menu id   value }
{ •             the_menu_item      - menu item value }
{ •             the_command_number - menu command number }
{ • Output .... the_error          - error result }
{ • Notes ..... Command table must already exist for this routine to 
work. }
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
PROCEDURE add_Command_to_CmdList (the_command_table: pt_command_list_h;
 the_menu_id: INTEGER;
 the_menu_item: pt_word;
 the_command_number: INTEGER;
 VAR the_error: INTEGER);
 VAR
 command_to_add: pt_command_info;{info about command toadd}
 list_size: Size; { physical byte size of command list }
 list_records: pt_word;  { no. records in command list }
 BEGIN  { ---------- add_Command_to_CmdList ---------- }
 the_error := NoErr;

 IF the_command_table = NIL THEN
 the_error := NILHandleErr
 ELSE
 BEGIN
{ setup the command info to actually add to the table end }
 command_to_add.ci_command_number := the_command_number;
 command_to_add.ci_menu_id := the_menu_id;
 command_to_add.ci_menu_item := the_menu_item;

 { grow the table by one record for the addition }
 list_size := GetHandleSize(Handle(the_command_table));
 the_error := MemError;

 IF the_error = NoErr THEN
 BEGIN
 list_size := list_size + SIZEOF(command_to_add);
 SetHandleSize(Handle(the_command_table), list_size);
 the_error := MemError;

{ store the command info record at the end of the table }
 IF the_error = NoErr THEN
 BEGIN
 list_records := list_size DIV SIZEOF(command_to_add);

 {$PUSH}
 {$R-}
 the_command_table^^[list_records] := command_to_add;
 {$POP}
 END;
 END;
 END;
 END;   { ---------- add_Command_to_CmdList ---------- }

{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ •                                                        • }
{ •                PUBLIC MODULE ROUTINES                  • }
{ •                                                        • }
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }

{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ • Routine ... MC_Version }
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
PROCEDURE MC_Version (VAR version_phrase: Str255);
 VAR
 comp_stuff: STRING[63]; { compilation date and time info }
 BEGIN  { ---------- MC_Version ---------- }
{ NOTE: COMPDATE and COMPTIME contain the compilation date and time as 
strings.  These are both built into MPW Pascal and THINK Pascal.  MPW 
treats them as string constants while THINK treats them as string functions. 
          }

 comp_stuff := CONCAT(‘[‘, COMPDATE, ‘ -- ‘, COMPTIME, ‘]’);

 version_phrase := CONCAT(pc_module_version, ‘ ‘, comp_stuff);
 END;   { ---------- MC_Version ---------- }

{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ • Routine ... MC_Build_Menu_Command_Table }
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
PROCEDURE MC_Build_Menu_Command_Table (menu_list: Ptr;
 menu_count: INTEGER;
 VAR command_table: Handle;
 VAR good_build: BOOLEAN);
 VAR
 menu_index: pt_word;{ menuhandle list indexer }
 menu_list_ptr: pt_menu_list_ptr;  { menu list pointer }
 menu_stuff: MenuHandle; { single entry from menu list }
 menu_id: INTEGER; { menu id  value from menu list entry }
 menu_item: pt_word; {menuitem value from menu list entry}
 menu_phrase: Str255; { phrase for a single menu item }
 command_identifier: STRING[1];    { command identifier character }
 command_position: pt_word; { position of command identifier in item 
}
 command_phrase: Str255; { menu command number phrase (eg: “203”) }
 command_number: LONGINT; { command number value (long) }
 command_value: INTEGER; { command number value (word) }
 table_index: pt_word; { menu command table index of a command }
 command_info: pt_command_info; { information about a single menu command 
}
 good_unbuild: BOOLEAN;  { deallocating menu command table result }
 error: INTEGER; { internal error result }
 BEGIN  { ------ MC_Build_Menu_Command_Table ------ }
 command_table := NIL;
 good_build := FALSE;

 IF menu_count >= 1 THEN
 BEGIN
 command_table := NewHandle(0);
 error := MemError;

 IF error = NoErr THEN
 BEGIN
 good_build := TRUE; { assume all will go well from now on }

 menu_index := 0;

 { scan each of the menu handles }
 REPEAT
 BEGIN
 menu_index := menu_index + 1;

 menu_list_ptr := pt_menu_list_ptr(menu_list);

 {$PUSH}
 {$R-}
 menu_stuff := menu_list_ptr^[menu_index];
 {$POP}

 IF menu_stuff <> NIL THEN
 BEGIN
 command_identifier := ‘?’;
 command_identifier[1] := pc_command_identifier;

{ scan the menu items in the current menu handle }
 menu_id := menu_stuff^^.MenuID;
 menu_item := 0;

 REPEAT
 BEGIN
 menu_item := menu_item + 1;
 GetItem(menu_stuff, menu_item, menu_phrase);

 IF LENGTH(menu_phrase) >= 2 THEN
 BEGIN
 command_position := POS(command_identifier, menu_phrase);

 IF command_position > 0 THEN
 BEGIN
 command_phrase := COPY(menu_phrase, command_position, LENGTH(menu_phrase) 
- command_position + 1);
 DELETE(command_phrase, 1, 1);

 DELETE(menu_phrase, command_position, LENGTH(menu_phrase) - command_position 
+ 1);

 SetItem(menu_stuff, menu_item, menu_phrase);

 WHILE POS(‘ ‘, command_phrase) > 0 DO
 DELETE(command_phrase, POS(‘ ‘, command_phrase), 1);

 StringToNum(command_phrase, command_number);

 command_value := LoWord(command_number);

 IF (command_value < pc_command_num_min) OR (command_value > pc_command_num_max) 
THEN
 good_build := FALSE
 ELSE
 BEGIN
 { command value is valid, now check for duplication }
 find_Command_in_Table( pt_command_list_h(command_table), command_value, 
table_index, command_info);

 IF table_index > 0 THEN
 good_build := FALSE  { !!! DUPLICATE !!! }
 ELSE
 BEGIN
 add_Command_to_CmdList (pt_command_list_h(command_table), menu_id, menu_item, 
command_value, error);

 IF error <> NoErr THEN
 good_build := FALSE;
 END;
 END;
 END;
 END;
 END;
 UNTIL (menu_phrase = ‘’) OR NOT (good_build);
 END;

 IF error <> NoErr THEN
 good_build := FALSE;
 END;
 UNTIL (menu_index >= menu_count) OR (error <> NoErr);
 END;
 END;

 IF NOT (good_build) AND (command_table <> NIL) THEN
 BEGIN
 MC_UnBuild_Menu_Command_Table(command_table, good_unbuild);
 END;
 END;   { ------ MC_Build_Menu_Command_Table ------ }

{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ • Routine ... MC_UnBuild_Menu_Command_Table }
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
PROCEDURE MC_UnBuild_Menu_Command_Table (VAR command_table: Handle; VAR 
good_unbuild: BOOLEAN);
 VAR
 error: INTEGER;
 BEGIN  { ------ MC_UnBuild_Menu_Command_Table ------ }
 good_unbuild := TRUE;

 IF command_table = NIL THEN
 good_unbuild := FALSE
 ELSE
 BEGIN
 DisposHandle(command_table);
 error := MemError;

 IF error <> NoErr THEN
 good_unbuild := FALSE;

 command_table := NIL;
 END;
 END;   { ------ MC_UnBuild_Menu_Command_Table ------ }

{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ • Routine ... MC_Fetch_Menu_Command }
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
PROCEDURE MC_Fetch_Menu_Command (command_table: Handle;
 menu_info: LONGINT;
 VAR menu_command: INTEGER);
 TYPE
 t_menu_selection = RECORD
 ms_menu_id: INTEGER;
 ms_menu_item: INTEGER;
 END;
 VAR
 menu_selection: t_menu_selection; { info about selected menu item }
 cmd_table: pt_command_list_h;{ menu command table }
 command_info: pt_command_info;    { menu command info }
 list_size: Size; { physical byte size of command list }
 list_records: pt_word;  { no. records in command list }
 BEGIN  { ---------- MC_Fetch_Menu_Command ---------- }
 { assume the command will NOT be found }
 menu_command := MC_c_NoCommand;

 { determine the selected menu ID and menu ITEM }
 menu_selection := t_menu_selection(menu_info);

 IF command_table <> NIL THEN
 BEGIN
 cmd_table := pt_command_list_h(command_table);
 list_size := GetHandleSize(command_table);
 list_records := list_size DIV SIZEOF(command_info);

 WHILE list_records >= 1 DO
 BEGIN
 {$PUSH}
 {$R-}
 command_info := cmd_table^^[list_records];
 {$POP}

 WITH menu_selection, command_info DO
 IF (ms_menu_id = ci_menu_id) AND (ms_menu_item = ci_menu_item) THEN
 BEGIN
 menu_command := ci_command_number; { !!! GOTCHA !!! }
 END;

 list_records := list_records - 1;
 END; { WHILE list_records }
 END;
 END;   { ---------- MC_Fetch_Menu_Command ---------- }

{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ • Routine ... MC_Fetch_Menu_ID_and_Item }
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
PROCEDURE MC_Fetch_Menu_ID_and_Item (command_table: Handle;    { in }
 menu_command: INTEGER; { in }
 VAR menu_id: INTEGER; { out }
 VAR menu_item: INTEGER); { out }
 VAR
 command_info: pt_command_info;  { menu command info }
 table_index: pt_word; { index of command in menu command table }
 BEGIN  { ---------- MC_Fetch_Menu_ID_and_Item ---------- }
 { assume no command match will occur }
 menu_id := -1;
 menu_item := -1;

 { attempt to locate the inputted command in the menu command table }
 IF command_table <> NIL THEN
 BEGIN
 find_Command_in_Table(pt_command_list_h(command_table), menu_command, 
table_index, command_info);
 IF table_index >= 1 THEN
 BEGIN
{ command found in table --> return command’s menu stuff }
 menu_id := command_info.ci_menu_id;
 menu_item := command_info.ci_menu_item;
 END;
 END;
 END;   { ---------- MC_Fetch_Menu_ID_and_Item ---------- }
END.  { UNIT UMenuCommand }
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }
{ •                                                        • }
{ •                          FINIS                         • }
{ •                                                        • }
{ •••••••••••••••••••••••••••••••••••••••••••••••••••••••••• }

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

SoftRAID 5.5.6 - High-quality RAID manag...
SoftRAID allows you to create and manage disk arrays to increase performance and reliability. SoftRAID allows the user to create and manage RAID 4 and 5 volumes, RAID 1+0, and RAID 1 (Mirror) and... Read more
Apple Final Cut Pro X 10.3.2 - Professio...
Apple Final Cut Pro X is a professional video editing solution.Completely redesigned from the ground up, Final Cut Pro adds extraordinary speed, quality, and flexibility to every part of the post-... Read more
Logic Pro X 10.3.1 - Music creation and...
Logic Pro X is the most advanced version of Logic ever. Sophisticated new tools for professional songwriting, editing, and mixing are built around a modern interface that's designed to get creative... Read more
Paragraphs 1.1.4 - Writing tool just for...
Paragraphs is an app just for writers. It was built for one thing and one thing only: writing. It gives you everything you need to create brilliant prose and does away with the rest. Features... Read more
VueScan 9.5.70 - Scanner software with a...
VueScan is a scanning program that works with most high-quality flatbed and film scanners to produce scans that have excellent color fidelity and color balance. VueScan is easy to use, and has... Read more
TextSoap 8.3.2 - Automate tedious text d...
TextSoap can automatically remove unwanted characters, fix up messed up carriage returns, and do pretty much anything else that we can think of to text. Save time and effort. Be more productive. Stop... Read more
ForkLift 3.0 - Powerful file manager: FT...
ForkLift is a powerful file manager and ferociously fast FTP client clothed in a clean and versatile UI that offers the combination of absolute simplicity and raw power expected from a well-executed... Read more
Amazon Chime 4.0.5528 - Amazon-based com...
Amazon Chime is a communications service that transforms online meetings with a secure, easy-to-use application that you can trust. Amazon Chime works seamlessly across your devices so that you can... Read more
Sparkle 2.1.0 - $79.99
Sparkle will change your mind if you thought building websites wasn't for you. Sparkle is the intuitive site builder that lets you create sites for your online portfolio, team or band pages, or... Read more
Bookends 12.7.9 - Reference management a...
Bookends is a full-featured bibliography/reference and information-management system for students and professionals. Bookends uses the cloud to sync reference libraries on all the Macs you use.... Read more

Fantasy MMORPG MU Origin’s receives a hu...
Developer Webzen are looking to take their highly popular fantasy battler MU Origin to the next level this month, with its most ambitious overhaul yet. The latest update introduces the long sought after Server Arena, new treasure dungeons, and much... | Read more »
RPG Djinn Caster (Games)
RPG Djinn Caster 1.0.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.0 (iTunes) Description: SPECIAL PRICE 38% OFF(USD 7.99 -> USD 4.99)!!!A Fantasy Action RPG of far foreign lands! Summon the Djinns and rise to... | Read more »
Alto's Odyssey gets its first trail...
There's finally video evidence of Alto's Odyssey, the follow up to the 2015 App Store hit, Alto's Adventure. It looks just as soothing and atmospheric as Alto's last outing, but this time players will be journeying to the desert. Whereas Alto's... | Read more »
Last week on Pocket Gamer
What’s going on in the wider world of portable gaming? Each week we ask that question of our sister website Pocket Gamer. The PG team covers iOS gaming, just like 148Apps, but it also strays into the world of Android games and handheld consoles... | Read more »
Pokémon GO Generation 2 evolution guide
At long last, Niantic Labs finally unleashed the Generation 2 Pokémon into the wild. Pokémon GO trainers are scrambling to grab up this new set of 80 Pokémon. There are some special new tricks required to catch all of these new beasties, though.... | Read more »
The best new games we played this week
It feels as though the New Year got off to a creaking start as far as mobile games go, but that's changed over the past few weeks. The last few days alone have seen the debut of a number of wonderful games, so we thought we'd take the time to... | Read more »
Recruit more scallywags and discover new...
Get ready to show off your sea legs all over again in Oceans & Empires’ new grand update, which aims to make the act of rising to the role of seven seas ruler even more fresh and appealing, thanks to a richness of new content on both iOS and... | Read more »
Mage the Ascension: Refuge (Games)
Mage the Ascension: Refuge 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: The groundbreaking roleplaying game Mage: The Ascension manifests in our turbulent present with Refuge, an... | Read more »
Vampire: Prelude (Games)
Vampire: Prelude 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: The classic roleplaying game Vampire: The Masquerade returns to digital games with a Prelude of things to come. Experience a... | Read more »
Digby Forever Guide: How to dig to the d...
Digby Forever is a sparkling homage to arcade classics, and while you may be tiring of the number of arcade games being thrown at you, this endless digger finds many ways to stand out from the rest of the pack. The game manages to be challenging... | Read more »

Price Scanner via MacPrices.net

QuickerTek Announces 5TB Apple AC AirPort Tim...
QuickerTek Inc. has announced their new 5TB hard drive upgrade for Apple’s AC AirPort Time Capsule. By customer request, this upgrade also features six external antennas and offers the highest... Read more
Apple Certified Refurbished iMacs available f...
Apple has Certified Refurbished 2015 21″ & 27″ iMacs available for up to $350 off MSRP. Apple’s one-year warranty is standard, and shipping is free. The following models are available: - 21″ 3.... Read more
Apple offering Certified Refurbished Series 1...
Apple is now offering Certified Refurbished Series 1 and Series 2 Apple Watches for 14-16% off MSRP, starting at $229. An Apple one-year warranty is included with each watch. Shipping is free: Series... Read more
1.4GHz Mac mini on sale for $449, save $50
B&H Photo has the 1.4GHz Mac mini on sale for $50 off MSRP including free shipping plus NY sales tax only: - 1.4GHz Mac mini: $449 $50 off MSRP Read more
12-inch Retina MacBooks on sale for $200-$250...
Newegg has the 12″ 1.2GHz Space Gray Retina MacBook (sku MLH82LL/A) on sale for $1349.99 including free shipping. Their price is $250 off MSRP, and it’s the lowest price available for this model.... Read more
13-inch 2.0GHz Space Gray MacBook Pro on sale...
Adorama has the non-Touch Bar 13″ 2.0GHz Space Gray MacBook Pro in stock today for $100 off MSRP. Shipping is free, and Adorama charges NY & NJ sales tax only: - 13″ 2.0GHz MacBook Pro Space Gray... Read more
13-inch Touch Bar MacBook Pros on sale for $1...
B&H Photo has select 2016 Apple 13″ Touch Bar MacBook Pros in stock today and up to $100 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 2.9GHz/512GB Touch Bar MacBook... Read more
KSI-1802R SX Disinfect-able Keyboard With Wav...
KSI has unveiled a new, innovative medical keyboard, the KSI-1802R SX, at HIMSS 2017, running February 19-22 in Orlando, Florida. KSI-1802R SX is the only keyboard that combines dual factor... Read more
15-inch Touch Bar MacBook Pros on sale for up...
Amazon has 15″ Touch Bar MacBook Pros in stock today and on sale for up to $150 off MSRP including free shipping: - 15″ 2.7GHz Touch Bar MacBook Pro Space Gray: $2720.38 $79 off MSRP - 15″ 2.7GHz... Read more
Apple’s Education discount saves up to $300 o...
Purchase a new Mac or iPad using Apple’s Education Store and take up to $300 off MSRP. All teachers, students, and staff of any educational institution qualify for the discount. Shipping is free: -... Read more

Jobs Board

*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
Manager *Apple* Systems Administration - Pu...
Req ID 3315BR Position Title Manager, Apple Systems Administration Job Description The Manager of Apple Systems Administration oversees the administration and Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
Manager *Apple* Systems Administration - Pu...
Req ID 3315BR Position Title Manager, Apple Systems Administration Job Description The Manager of Apple Systems Administration oversees the administration and Read more
*Apple* Technician - nfrastructure (United S...
Let’s Work Together Apple Technician This position is based in Portland, ME Life at nfrastructure At nfrastructure, we understand that our success results from our Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.