Related Info: AppleTalk Mgr Event Manager

AACK gives AppleTalk Shell

By Ajay Nath, Oakland Gardens, NY

AACK OR ATApp?

Example AppleTalk programs have appeared before in MacTutor but none recently except in one of the HyperCard columns. The introduction of MultiFinder, a new interface to the AppleTalk routines and new features added to AppleTalk itself, have changed the way applications should use AppleTalk. In this article I present a program called AACK, the “AppleTalk Application Construction Kit”, which was written in LightSpeed Pascal 2.0, which demonstrates how to use the new AppleTalk interface and how to use the background features of MultiFinder. The resources of the program were created by ResEdit and stored in a file called “aack.rsrc”, a rez description of the resources is found in the file “resources.r”. The code of the program is in 4 files/units as follows:

FILE/UNIT CONTENTS

globals.p global declarations

lowlevelATprocs.p low level procs

hooks.p code specific to the application

main.p generic application code

The code is designed to be easily modifiable. By simply changing code in the file hooks.p the nature of the applications produced can be changed. For example, in the file main.p, the code that handles menu selections look like:

{1}

 IF HookedMenuChoice(theMenu, theItem) = FALSE THEN BEGIN
 CASE theMenu OF
 APPLEMENUID: 
 DoAppleMenu(theItem);
 FILEMENUID: 
 DoFileMenu(theItem);
 SPECIALMENUID: 
 DoSpecialMenu(theItem);
 OTHERWISE
 END;
 END;

where the function HookedMenuChoice is declared in the file/unit ‘hooks.p’. It returns false if it DIDN’T handle the menu choice, it allows the programmer to ‘hook’ or handle menu choices before the applications generic code does and to override the generic codes response. For example, the generic code of AACK simply puts up a windows, some menus, and allows the user to see others of his type on the network and to confirm their presence. There is a menu titled “Special” which has items labeled “LookUp”, “Confirm” and “Send”. The generic code handles the first two items (this can be overridden) but does nothing but beep when “Send” is chosen. By changing the code in the hooks.p file, you can create an application that does something else with AppleTalk, perhaps sending strings through the net as was shown in a previous MacTutor article. There is obviously a code/speed overhead introduced by using this method, but its far more easy to get something to work and to later go back and optimize than to start each application from scratch. (Maybe I should have called it “ATApp: The Expandable Macintosh AppleTalk Application”?)

Bypassing Generic (Brand?) Code OR OverRid’em CowBoy!

Most of the generic code is trivial stuff to MacTutor readers and I have left out some things such as handling DAs which is left to the reader as an exercise. The code does use LSPs ability to have compiler variables. I declare a compiler option called “TALK_DEBUG” and set it to TRUE when I want the compiler to include certain debugging code in the app. Basically, the generic code does a “SetUp” routine and lets the code from the “Hooks” unit do any “SetUp” - i.e. - the generic routine SetUpGlobals does its “SetUps” and then calls the procedure “SetUpHooksGlobals”, which lets the Hooks code do its “SetUps”. Similarly the generic code lets the Hooks code do any Window and AppleTalk “SetUps” after it has done its own such “SetUps”. The generic code also checks to see if the Hooks code has decided to take over the duties of taking care of the applications window by examining a global Boolean variable called “UserWindowProcsChanged” which the Hooks code can set to true in its “SetUp” code. For example when activating the UserWindow the generic code does the following:

{2}

 IF UserWindowProcsChanged THEN
 HooksActivateUserWindowProc {Let hook code do its magic}
 ELSE
 LActivate(T, NameListHdl);

One consequence of this is that even if the Hooks code wants to override only one of the procedures that controls the windows activation, deactivation, updating, or disposal, it must override them ALL. You only have to copy and paste the generic code from the file main.p into the file hooks.p to mimic the generic codes handling of the other procedures though. For example, you might write an app using AACK which receives/sends messages and overrides the way the generic code draws the windows contents to draw any received messages at the bottom of the window, but it wouldn’t need to override any other of the generic codes window handling routines. You could just copy the other generic code routines from the file main.p and pasted them into the right places in the file hooks.p.

Generic AppleTalk Code OR AppleTalk is cheap

The AppleTalk generic code does the following:

1) calls MPPOpen and then SysEnvirons which returns to us among other information, the type of machine we’re running on and the version of AppleTalk available. We exit if we’re not running on at least a 512KE, and if we are, set a boolean variable called “NewCallsExist” to true if the AppleTalk driver version supports the new AppleTalk calls

2) opens an ATP socket

3) calls WaitNextEvent a few times to make sure our dialog that lets the user select a name comes up in front and lets the user register on the network with a name (1->31 chars)

4) depending on the setting of a compiler variable called “TALK_DEBUG “ tries to call PSetSelfSend, a new AppleTalk call which lets you send AppleTalk packets to your own node. This is useful if your network consists of one machine as mine does, unfortunately this feature is implemented only on machines with the drivers with version numbers >= 48, (actually its listed as 48 in IM V but 45 in the MPW Assembler Equates, which is it Apple?)

5) then the generic code lets the Hooks unit do any AppleTalk “SetUps”, (such as post asynchronous GetRequests if it was going to receive requests)

If all of the above goes well then the generic code sets up its Menus, lets the Hooks unit do any of its menu setups, then the generic code sets up its window and lets the Hooks unit modify that window or set up any of its own and we’re off into our event loop!

MultiFinder and AppleTalk OR ASYNC or swim!

The generic codes event loop calls WaitNextEvent (you already know how to check for the presence of WNE so I don’t do this) and calls a procedure called “AppleTalkCallChecks” before it handles any events. This procedure is going to check for any ASYNC calls that may have finished and handle them. For example, the generic code calls PLookUpName ASYNChronously, this allows the user to start a LookUp to see if any other users of the same type are on the network, and work on other things while the LookUp is begin done. This IS after all is what MultiFinder is for! The tricky part of making ASYNC calls is knowing when they’ve finished and taking care of them when they do finish. I solve this problem by using Completion Routines and special data structures. I got the idea from Tech Note #180 - “MultiFinder Miscellanea”, in which it is suggested that applications making ASYNC calls store their A5 somewhere RELATIVE to the parameter block which they use to make the ASYNC calls, so that when their Completion Routines are executed they can load the applications A5 and set a global variable to indicate that an ASYNC call has finished. I use a similar approach. I define the following structure in the file “globals.p”:

{3}

 NameLookUpRec = RECORD
 PbInUse: Boolean;
 CallDone: LongInt;
 xMPPPb: MPPParamBlock;
 END;

When a call is made using a record of this type the field PbInUse is set to TRUE and CallDone is set to zero. The Completion Routine that is executed when the call finishes sets the CallDone field to -1.

The routine “AppleTalkCallChecks” (called once through each event loop) just checks the CallDone field of the record and if it is non-zero we know that an ASYNC call has just completed. The advantages of this method are as follows:

1) the Completion Routine used is VERY simple, as it must be since Completion Routines cannot make any calls that affect memory, all it does is set the CallDone field to a non-zero value. The completion routine is declared in LSP in the following way in the file “lowlevelATprocs.p”:

{4}

 PROCEDURE InlineRoutine;
 INLINE
 $213C, $FFFF, $FFFF; { MOVEA.L #-1,-(A0) set CallDone field}

 PROCEDURE XCompletionRoutine;
 {When routine is called A0 = ptr to ParamBlock}
 BEGIN
 InlineRoutine;
 END;

2) we dont have to worry about whether our A5 is valid when our Completion Routine runs

The drawbacks of using this method are that we must check our ASYNC calls EVERY time through our event loop and that the parameter blocks we use to make them MUST be global variables so that we can check them.

Using the PREFERRED interface OR Learning to AppleTalk all over again

We’d like to use the (new) ‘preferred’ AppleTalk interface because its more robust, and if we’re running with the right versions of the AppleTalk drivers we can use the new AppleTalk calls. Information about the new AppleTalk calls is in IM V (and I suppose, in Inside AppleTalk which is available from APDA which I dont have). There are two different types of parameter blocks defined in the new interface, the ATPParamBlock and the MPPParamBlock, and you just fill in the fields necessary for the call you want to make and then pass a ptr to the ParamBlock to the function you’re calling - i.e. -

{5}

err = PCallName (@ParamBlock, true or false for ASYNC);

The catch is that when filling out the fields in parameter blocks for OLD AppleTalk routines that you call with the NEW interface, you use the information from “Calling the AppleTalk Manager routines from Assembly Language” from IM II. Look at the pages in IM V which describe the new types, it shows which fields have to be filled with which values to make a call. Some field names have changed though, so be careful, make sure you’ve filled them out right - then check them again!

New (and Improved?) AppleTalk Calls OR Don’t LookUp before you leave

A few new AppleTalk calls are quite useful to us, for example, the generic code of AACK does ASYNC LookUps, but what happens if the user quits BEFORE the LookUp completes? If the application just quit, then sooner or later that ASYNC call would complete and the Completion Routine (which is no longer around) would be called and BOOOOM! If we don’t have access to the new calls then we just have to wait till the ASYNC call completes which we can do by:

 while CallDone = 0 do
 ;

, which just waits till a particular call is done before proceeding. There is however a new call, PKillNBP, which allows us to kill pending calls, (but if it fails we will have to wait the call out). Note that IM V in some places incorrectly lists which ParamBlock, ATP or MPP to use, this call requires an MPPParamBlock. The generic code also uses the call PSetSelfSend to allow the user to receive/send packets to his own node, a feature of the new AppleTalk drivers which is useful to programmers, but we must be careful to restore the state of this flag - i.e. - if it wasn’t enabled when we started, then we should disable it when we leave.

The future OR Everybody AppleTalks but nobody DOES anything with it

Should the PConfirmName calls be made ASYNC? I’ll leave it to you as an exercise. I’ve already written an application (modifying ONLY the file hooks.p) which uses the AACK shell to receive/send strings (Str255s actually). If anyone is interested in seeing it, let Dave Smith at MacTutor know and I’ll write it up, its code will be shorter than this article but it may take longer to explain.

Using PSetSelfSend on a Mac Plus OR AppleTalking to yourself on a Plus

I’ve found a way to get the new AppleTalk drivers running on my Mac Plus and I can test my AppleTalk code on my ‘network of one’ using PSetSelfSend to enable me to send packets to myself. Those of you who are thinking, “That’s easy, just copy the DRVR resources out of the latest System File and paste them into the System File you use on your Mac Plus!”, are thinking along the wrong lines. The new drivers are in the Mac II ROM and perhaps the SE ROM (I don’t have one to test). I’m not sure its a good idea to use the new drivers on a Mac Plus, but I haven’t had any problems with my system (yet). Apple must have some reason not to make the new drivers available for the Mac Plus so I won’t pass this information along unless anyone out there is interested and Apple says its OK (you’ve figured out how to do it though, right?).

I’d like to thank K.S. without whose love and support this article would not be possible.

Listing:  globals.p

unit Globals;

interface

 uses
 AppleTalk;

 type
{AppleTalk Types}
 NameLookUpRec = record
 PbInUse: Boolean;
 CallDone: LongInt;
 xMPPPb: MPPParamBlock;
 end;

{String Types}
 Str32Hdl = ^Str32Ptr;
 Str32Ptr = ^Str32;

 const
 F = false;
 T = true;

{Constants used ONLY when debugging}
{$IFC TALK_DEBUG }
 SENDSELF = 1;
{$ENDC}

{AppleTalk Constants}
 ANYZONE = ‘*’;
 ANYOJB = ‘=’;
 ASYNC = T;
 DOVERIFY = 1;
 LOOKUPBUFFERSIZE = 1023;
 MAXNAMELENGTH = 31;
 MAXTOLOOKUP = 100;
 SYNC = F;
 XNCVERSION = 48;

{Dialog Constants}
 rABOUTDLOGID = 128;

 rUSERNAMEDLOGID = 129;
 rUSERNAMEITEM = 4;

{Event Constants}
 MFEVENT = app4Evt;
 RESUMEMASK = 1;
 SUSPENDRESUMEMSG = 1;

{Menu Constants}
 APPLEMENUID = 128;
 ABOUTITEM = 1;
 FILEMENUID = 129;
 QUITITEM = 1;
 EDITMENUID = 130;
 SPECIALMENUID = 131;
 LOOKUPITEM = 1;
 CONFIRMITEM = 2;
 SENDITEM = 3;

{String Resource Constants}
 rAPPUSERNAMESTRID = 128;
 rCHOOSERUSERSTRID = -16096;

 var
 DoneFlag: Boolean;
 DragRect: Rect;
 Evt: EventRecord;

{Globals used ONLY when debugging}
{$IFC TALK_DEBUG }
 DebugOnRect: Rect;
 OldSelfFlag: Byte;
 SelfSendOn: Boolean;
 SelfSendOnRect: Rect;
{$ENDC}

{AppleTalk Globals}
 ConfirmString: Str255;
 ConfirmStringPos: Point;
 ConfirmStringRect: Rect;
 LookUpBuffer: array[0..LOOKUPBUFFERSIZE] of Integer;
 LookUpNamePb: NameLookUpRec;
 LookUpNTT: EntityName;
 LookUpString: Str255;
 LookUpStringPos: Point;
 LookUpStringRect: Rect;
 NBPsNTE: NamesTableEntry;
 NewCallsExist: Boolean;
 UserNTT: EntityName;
 UserSkt: Byte;

{List Globals}
 ListFrameRect, ListViewRect: Rect;
 MaxRows, NameListLength: Integer;
 NameListHdl: ListHandle;

{Event Globals}
 SleepTime: LongInt;

{Menu Globals}
 AppleMenu, FileMenu, EditMenu, SpecialMenu: MenuHandle;

{Window Globals}
 TextHeight: Integer;
 UserWindowFontInfo: FontInfo;
 UserWindowProcsChanged: Boolean;
 UserWindowRect: Rect;
 UserWindow, WhichWindow: WindowPtr;
 UserWRec: WindowRecord;

implementation
end.

Listing: lowlevelatprocs.p

unit LowLevelATProcs;

interface

 uses
 AppleTalk, Globals;

 procedure XCompletionRoutine;
 function NTTExists (ntt2Confirm: EntityName; var theAddress: AddrBlock): 
OSErr;

 procedure DrawConfirmString;
 procedure DrawLookUpString;

implementation
 procedure InlineRoutine;
 inline
 $213C, $FFFF, $FFFF; { MOVEA.L #-1,-(A0) set CallDone field}

 procedure XCompletionRoutine;
 {When routine is called A0 = ptr to ParamBlock}
 begin
 InlineRoutine;
 end;

 function NTTExists (ntt2Confirm: EntityName; var theAddress: AddrBlock): 
OSErr;
 {This function test whether or not an NTT exists at a certain address 
and}
 { returns its new address if it ‘moved’}
 var
 err: OSErr;
 localMPPPb: MPPParamBlock;
 begin
 with localMPPPb do
 begin
 ioCompletion := nil;
{$IFC TALK_DEBUG }
 interval := 6;
 count := 2;
{$ELSC}
 interval := 10;
 count := 10;
{$ENDC}
 entityPtr := @ntt2Confirm; {NTT to confirm}
 confirmAddr := theAddress; {address to confirm}

 err := PConfirmName(@localMPPPb, SYNC);
 NTTExists := err;
 if err = nbpConfDiff then
 {If the NTT ‘moved’ then return its new address}
 theAddress.aSocket := newSocket;
 end;
 end;

 procedure DrawConfirmString;
 {This proc draws the result of the last ConfirmName call}
 {It assumes that the current port is the user window}
 begin
 with ConfirmStringPos do
 begin
 EraseRect(ConfirmStringRect);
 MoveTo(h, v);
 DrawString(‘Confirm Status = ‘);
 DrawString(ConfirmString);
 end;
 end;

 procedure DrawLookUpString;
 {This proc draws the result of the last LookUpName call}
 {It assumes that the current port is the user window}
 begin
 with LookUpStringPos do
 begin
 EraseRect(LookUpStringRect);
 MoveTo(h, v);
 DrawString(‘LookUp Status = ‘);
 DrawString(LookUpString);
 end;
 end;

end.

Listing:  hooks.p

unit Hooks;

interface

 uses
 AppleTalk, Globals, LowLevelATProcs;

 const
 USERTYPE = ‘NATH’;

 procedure SetUpHooksGlobals;
 procedure SetUpHooksMenus;

 function HookedMenuChoice (menu, item: Integer): Boolean;

 procedure HooksActivateUserWindowProc;
 procedure HooksCloseUserWindowProc;
 procedure HooksDeactivateUserWindowProc;
 procedure HooksUpdateUserWindowProc;
 procedure HooksUserWindowDoContentHit;

 procedure ActivateHooksWindow (theWIndow: WindowPtr);
 procedure CloseHooksWindows;
 procedure DeactivateHooksWindow (theWIndow: WindowPtr);
 procedure DoHooksWindowContentHit;
 function SetUpHooksWindows: Boolean;
 procedure UpdateHooksWindow (theWIndow: WindowPtr);

 procedure HooksAppleTalkCallChecks;
 function HooksAppleTalkGlobalsSetUp: Boolean;
 procedure HooksCloseUpAppleTalk;
 function HooksRegistered: Boolean;

implementation

 procedure SetUpHooksGlobals;
 {This proc allows the hook code to init its globals}
 begin
 end;

 procedure SetUpHooksMenus;
 {This proc allows the hook code to init its menus}
 begin
 end;

 function HookedMenuChoice (menu, item: Integer): Boolean;
 {This proc allows the hook code to override menu choices which the generic 
code}
 {would normally handle, it returns T if it overrode a menu choice}
 begin
 {Assume we’re not handling the menu choice}
 HookedMenuChoice := F;
 end;

 procedure HooksActivateUserWindowProc;
 {This proc is used to override the generic codes activation of the UserWindow}
 begin
 end;

 procedure HooksCloseUserWindowProc;
 {This proc is used to override the generic codes closing of the UserWindow}
 begin
 end;

 procedure HooksDeactivateUserWindowProc;
 {This proc is used to override the generic codes deactivation of the 
UserWindow}
 begin
 end;

 procedure HooksUpdateUserWindowProc;
 {This proc is used to override the generic codes updating of the UserWindow}
 begin
 end;

 procedure HooksUserWindowDoContentHit;
 {This proc is used to override the generic codes handling of mouse hits}
 {in the UserWindow}
 begin
 end;

 procedure ActivateHooksWindow (theWIndow: WindowPtr);
 {This proc is used to activate any windows the hook code created}
 begin
 end;

 procedure CloseHooksWindows;
 {proc is used to close any windows the hook code created}
 begin
 end;

 procedure DeactivateHooksWindow (theWIndow: WindowPtr);
 {proc is used to deactivate any windows hook code created}
 begin
 end;

 procedure DoHooksWindowContentHit;
 {This proc is used to handle mouse hits in any windows the hook code 
created}
 begin
 end;

 function SetUpHooksWindows: Boolean;
 {proc is used to setup windows hook code wants to create}
 {and it allows the hook code to set the UserWindowProcsChanged global}
 {it returns T if it succeeds}
 begin
 {Assume error}
 SetUpHooksWindows := F;

 {Set to false to show that we dont change any of the UserWindow procs}
 UserWindowProcsChanged := F;

 {Return T since we succeeded}
 SetUpHooksWindows := T;
 end;

 procedure UpdateHooksWindow (theWIndow: WindowPtr);
 {proc is used to update any windows the hook code created}
 begin
 end;

 procedure HooksAppleTalkCallChecks;
 {proc is used to check any ASYNC AppleTalk calls hook code made}
 begin
 end;

 function HooksAppleTalkGlobalsSetUp: Boolean;
 {This proc does any AppleTalk setups hook needs to make, it}
 {returns T if it succeeds}
 begin
 {Assume error}
 HooksAppleTalkGlobalsSetUp := F;

 {Return T since we succeeded}
 HooksAppleTalkGlobalsSetUp := T;
 end;

 procedure HooksCloseUpAppleTalk;
 {proc does any AppleTalk closeups the hook needs to make}
 begin
 end;

 function HooksRegistered: Boolean;
 {This allows the hook code to do any AppleTalk calls its needs to make}
 {after the User had registered.   It returns T if it succeed}
 begin
 {Assume error}
 HooksRegistered := F;
 {Return T since we succeeded}
 HooksRegistered := T;
 end;
end.

Listing:  main.p

program AACK;

 uses
 AppleTalk, Globals, LowLevelATProcs, Hooks;

 procedure Crash;
 {This proc is called if we crash}
 begin
 ExitToShell;
 end;

 procedure SetUpToolbox;
 {This proc inits the Mac toolbox}
 begin
 MaxApplZone;
 MoreMasters;
 MoreMasters;
 MoreMasters;
 MoreMasters;
 InitGraf(@thePort);
 InitFonts;
 InitWindows;
 FlushEvents(everyEvent, 0);
 InitMenus;
 TEInit;
 InitDialogs(@Crash);
 InitCursor;
 end;

 procedure SetUpGlobals;
 {This proc does any app global inits}
 begin
 DoneFlag := F;

 DragRect := screenBits.bounds;
 with DragRect do
 begin
 top := top + 20;{NOTE! we really should use the mbarheight}
 left := left + 4;
 bottom := bottom - 4;
 right := right - 4;
 end;

 {Assume the new calls dont exist}
 NewCallsExist := F;

 SleepTime := 10;

{$IFC TALK_DEBUG }
 with DebugOnRect do
 begin
 top := 0;
 left := 0;
 bottom := 4;
 right := 4;
 end;

 with SelfSendOnRect do
 begin
 top := 5;
 left := 0;
 bottom := 9;
 right := 4;
 end;

{$ENDC}
 {Allow setup of any globals from the Hooks unit}
 SetUpHooksGlobals;
 end;

 procedure SetUpMenus;
 {This proc sets upthe generic codes menus}
 begin
 AppleMenu := GetMenu(APPLEMENUID);
 AddResMenu(AppleMenu, ‘DRVR’);
 InsertMenu(AppleMenu, 0);

 FileMenu := GetMenu(FILEMENUID);
 InsertMenu(FileMenu, 0);

 EditMenu := GetMenu(EDITMENUID);
 InsertMenu(EditMenu, 0);

 SpecialMenu := GetMenu(SPECIALMENUID);
 InsertMenu(SpecialMenu, 0);

 {Allow setup of any menus from the Hooks unit}
 SetUpHooksMenus;

 DrawMenuBar;
 end;

 procedure CloseWindows;
 {This proc closes the apps windows}
 begin
 {Allow closing of any windows from the Hooks unit}
 CloseHooksWindows;

 if UserWindowProcsChanged then
 HooksCloseUserWindowProc {Let the hook code do it magic}
 else
 begin
 LDispose(NameListHdl);
 CloseWindow(UserWindow);
 end;
 end;

 function GotWindows: Boolean;
 {This code sets up the apps windows, it returns T}
 {if it succeeds}
 var
 theCell: Cell;
 dBounds: Rect;
 begin
 {Assume we fail}
 GotWindows := F;

 UserWindowRect := DragRect;
 with UserWindowRect do
 begin
 top := top + 20;
 left := left + 4;
 bottom := top + 200;
 right := left + 225;
 end;

 {Get the UserWindow}
 UserWindow := NewWindow(@UserWRec, UserWindowRect, UserNTT.objStr, F, 
noGrowDocProc, WindowPtr(-1), T, 0);
 if UserWIndow <> nil then
 begin
 SetPort(UserWindow);
 ClipRect(UserWindow^.portRect);
 TextFont(monaco);
 TextSize(9);

 GetFontInfo(UserWindowFontInfo);
 with UserWindowFontInfo do
 TextHeight := ascent + descent + leading;

 {Set the # of rows to display in our list}
 MaxRows := 10;

 {Set the current list length to 0}
 NameListLength := 0;

 with dBounds do
 begin
 top := 0;
 left := 0;
 bottom := NameListLength; {no rows for now}
 right := 1; {one column}
 end;

 theCell.h := 0;
 theCell.v := 0;

 {Set up the lists view rect}
 with ListViewRect do
 begin
 top := 10;
 left := 10;
 bottom := (TextHeight * MaxRows) + ListViewRect.top;
 right := (32 * CharWidth(‘w’)) + 8;
 end;

 {Try to get a ListHandle}
 NameListHdl := LNew(ListViewRect, dBounds, theCell, 0, UserWindow, T, 
F, F, T);

 if NameListHdl = nil then
 {We failed to get a ListHandle so close UserWindow and exit}
 CloseWindow(UserWindow)
 else
 begin
 {We got the ListHandle, allow only one selection at a time from it}
 NameListHdl^^.selFlags := LOnlyOne;

 {Set up a rect to put a frame around our list}
 ListFrameRect := ListViewRect;
 with ListFrameRect do
 begin
 top := top - 1;
 left := left - 1;
 bottom := bottom + 1;
 right := right + 16;

 {Set up the pos to draw the LookUpName results at}
 with LookUpStringPos do
 begin
 h := left;
 v := bottom + TextHeight;
 end;

 {Set up the pos to draw the ConfirmName results at}
 with ConfirmStringPos do
 begin
 h := left;
 v := LookUpStringPos.v + TextHeight;
 end;

 end;

 {Set up the rect to erase the old LookUpName result}
 with LookUpStringRect do
 begin
 top := ListFrameRect.bottom + 1;
 left := UserWindow^.portRect.left;
 bottom := LookUpStringPos.v + UserWindowFontInfo.descent;
 right := UserWindow^.portRect.right;
 end;

 {Set up the rect to erase the old ConfirmName result}
 with ConfirmStringRect do
 begin
 top := LookUpStringRect.bottom + 1;
 left := UserWindow^.portRect.left;
 bottom := ConfirmStringPos.v + UserWindowFontInfo.descent;
 right := UserWindow^.portRect.right;
 end;

 {Set to false, assume no hook code override}
 UserWindowProcsChanged := F;

 {Allow setup of any windows from the Hooks unit}
 if SetUpHooksWindows = T then
 begin
 ShowWindow(UserWindow);
 {We succeeded!  Return T}
 GotWindows := T;
 end
 else
 begin
 {SetUpHooksWindows failed}
 LDispose(NameListHdl);
 CloseWindow(UserWindow);
 end;
 end;
 end;
 end;

 procedure DoDrag;
 {This code drags windows around}
 begin
 DragWindow(WhichWindow, Evt.where, DragRect);
 end;

 procedure ActivateUserWindow;
 {This code activates the apps windows}
 begin
 if UserWindowProcsChanged then
 HooksActivateUserWindowProc {Let hook code do its magic}
 else
 LActivate(T, NameListHdl);
 end;

 procedure DeactivateUserWindow;
 {This code deactivates the apps windows}
 begin
 if UserWindowProcsChanged then
 HooksDeactivateUserWindowProc {Let the hook code do its magic}
 else
 LActivate(F, NameListHdl);
 end;

 procedure UpdateNameList;
 {This code updates the list of names in the NameListHandle}
 var
 theAddress: AddrBlock;
 theCell: Cell;
 theNTT: EntityName;
 theNum: Integer;
 err: OSErr;
 thePtr: Ptr;
 begin
 with LookUpNamePb do
 begin
 if NameListLength <> 0 then
 LDelRow(NameListLength, 0, NameListHdl); {Delete any rows present}
 NameListLength := xMPPPb.numGotten; {Get the new # of rows needed}
 if NameListLength <> 0 then
 begin
 theNum := LAddRow(NameListLength, 0, NameListHdl); {Add the # of new 
rows}
 theCell.h := 0;
 for theNum := 1 to NameListLength do
 begin
 err := NBPExtract(@LookUpBuffer, NameListLength, theNum, theNTT, theAddress); 
{extract a name}
 if err = noErr then
 begin
 theCell.v := theNum - 1; {Cells are numbered starting from zero so bump 
row # back}
 thePtr := Ptr(ORD4(@theNTT.objStr) + 1); {Pt to the data}
 LSetCell(thePtr, length(theNTT.objStr), theCell, NameListHdl); {Set 
the cells data}
 end;
 end;
 {Select the first row}
 theCell.h := 0;
 theCell.v := 0;
 LSetSelect(T, theCell, NameListHdl);
 end;
 end;
 end;

 procedure UpdateUserWindow;
 {This code updates the UserWindow}
 var
 theRgn: RgnHandle;
 begin
 if UserWindowProcsChanged then
 HooksUpdateUserWindowProc {Let hook code do its magic}
 else
 begin
{$IFC TALK_DEBUG }
 ForeColor(redColor);
 FillRect(DebugOnRect, black);

 if SelfSendOn then
 begin
 ForeColor(cyanColor);
 FillRect(SelfSendOnRect, black);
 end
 else
 begin
 ForeColor(cyanColor);
 FrameRect(SelfSendOnRect);
 end;

 ForeColor(blackColor);
{$ENDC}

 FrameRect(ListFrameRect); {Put a frame around list}
 theRgn := UserWindow^.visRgn;
 LUpdate(theRgn, NameListHdl); {Update the list}
 DrawLookUpString; {Draw in last LookUpName result}
 DrawConfirmString; {Draw in last ConfirmName result}
 end;
 end;

 procedure DoActivate;
 {This code activates any app windows}
 var
 theWindow: WindowPtr;
 begin
 theWindow := WindowPtr(Evt.message);
 SetPort(theWindow);
 if BAnd(activeFlag, Evt.modifiers) <> 0 then
 begin
 if theWindow = UserWindow then
 ActivateUserWindow
 else
 ActivateHooksWindow(theWindow); {Let the hook code activate its windows}
 end
 else
 begin
 if theWindow = UserWindow then
 DeactivateUserWindow
 else
 DeactivateHooksWindow(theWindow); {Let the hook code deactivate its 
windows}
 end;
 end;

 procedure DoUpdate;
 {This proc does updates of app windows}
 var
 oldPort: GrafPtr;
 theWindow: WindowPtr;
 begin
 GetPort(oldPort);

 theWindow := WindowPtr(Evt.message);
 SetPort(theWindow);

 BeginUpdate(theWindow);

 if theWindow = UserWindow then
 UpdateUserWindow
 else
 UpdateHooksWindow(theWindow); {Let the hook code update any of its windows}

 EndUpdate(theWindow);

 SetPort(oldPort);
 end;

 procedure DoMFEvent;
 {code handles MultiFinder events such as deac/activation of}
 {windows upon suspend/resume events}
 var
 theWindow: WindowPtr;
 begin
 theWindow := FrontWindow;
 case BSR(Evt.message, 24) of {high byte of message}
 SUSPENDRESUMEMSG: 
 begin
 if BAnd(Evt.message, RESUMEMASK) <> 0 then
 begin
 SleepTime := 10;
 SetPort(theWindow);
 if theWindow = UserWindow then
 ActivateUserWindow
 else
 ActivateHooksWindow(theWindow); {Let the hook code activate its windows}
 end
 else
 begin
 SleepTime := 60;
 SetPort(theWindow);
 if theWindow = UserWindow then
 DeactivateUserWindow
 else
 DeactivateHooksWindow(theWindow); {Let the hook code deactivate its 
windows}
 end;
 end;
 otherwise
 end;
 end;

 function UserRegistered: Boolean;
 {This proc lets User register on the network, it return T}
 {T if it succeeds}
 label
 100;
 var
 localATPPb: ATPParamBlock;
 theDialog: DialogPtr;
 theDRec: DialogRecord;
 oldPort: GrafPtr;
 item: Handle;
 itemHit: Integer;
 localMPPPb: MPPParamBlock;
 err: OSErr;
 itemRect: Rect;
 theStr32Hdl: Str32Hdl;
 theString: Str255;
 begin
 {Assume we fail}
 UserRegistered := F;

{Get the string entered in the ‘Chooser’}
 theStr32Hdl := Str32Hdl(GetResource(‘STR ‘, rCHOOSERUSERSTRID));

{If there is no default user name from the chooser, then set theString 
to the}
{null string}
 if theStr32Hdl = nil then
 theString := ‘’;

 GetPort(oldPort);

 theDialog := GetNewDialog(rUSERNAMEDLOGID, @theDRec, WindowPtr(-1));
 SetPort(theDialog);

 ShowWindow(theDialog);

100:
 if theStr32Hdl <> nil then
 begin
 HLock(Handle(theStr32Hdl));
 theString := theStr32Hdl^^; {theString = the chooser string}
 HUnlock(Handle(theStr32Hdl));
 end;

 {Show theString in the dialog and select it}
 GetDItem(theDialog, rUSERNAMEITEM, itemHit, item, itemRect);
 SetIText(item, theString);
 SelIText(theDialog, rUSERNAMEITEM, 0, 32767);

 {Loop until OK or Cancel is hit}
 repeat
 ModalDialog(nil, itemHit)
 until ((itemHit = ok) or (itemHit = cancel));

 if itemHit = ok then
 begin
 GetDItem(theDialog, rUSERNAMEITEM, itemHit, item, itemRect);
 GetIText(item, theString);
 itemHit := length(theString);
 if (itemHit > 0) and (itemHit <= MAXNAMELENGTH) then
 begin
 {theString must be > 0 but < 32}
 {First try to open a socket}
 with localATPPb do
 begin
 ioCompletion := nil;
 atpSocket := 0;
 with addrBlock do
 begin
 aNet := 0;
 aNode := 0;
 aSocket := 0;
 end;
 end;

 err := POpenATPSkt(@localATPPb, SYNC);
 if err = noErr then
 begin
 UserSkt := localATPPb.atpSocket; {Save the socket #}
 {Try to register the user on the network}
 NBPSetEntity(@UserNTT, theString, USERTYPE, ANYZONE);
 NBPSetNTE(@NBPsNTE, UserNTT.objStr, USERTYPE, ANYZONE, UserSkt); {Set 
up the nte that NBP wants}

 with localMPPPb do
 begin
 ioCompletion := nil;
 interval := 3;
 count := 3;
 entityPtr := @NBPsNTE;
 verifyFlag := DOVERIFY; {Make sure we register with a unique name}
 end;

 err := PRegisterName(@localMPPPb, SYNC);
 if err = noErr then
 begin
 {We registered successfully!}
 UserRegistered := HooksRegistered; {Let the hook code do its magic}

{$IFC TALK_DEBUG }
 {Enable self sending if the new calls exist}
 if NewCallsExist then
 begin
 localMPPPb.newSelfFlag := SENDSELF;
 err := PSetSelfSend(@localMPPPb, SYNC);
 if err = noErr then
 begin
 OldSelfFlag := localMPPPb.oldSelfFlag; {Save the old self flag state}
 SelfSendOn := T; {Mark our selfsend flag as on}
 end
 else
 SelfSendOn := F; {We failed, mark our selfsend flag as off}
 end
 else
 SelfSendOn := F; {Mark our selfsend flag as off}
{$ENDC}
 end
 else
 begin
 {PRegisterName failed}
 {Close the UserSkt}
 localATPPb.atpSocket := UserSkt;
 err := PCloseATPSkt(@localATPPb, SYNC);
 end;
 end;
 end
 else
 {User didn’t enter a valid string}
 goto 100;
 end;

 {Close the dialog and return the result}
 CloseDialog(theDialog);
 SetPort(oldPort);
 end;

 function AppleTalkOK: Boolean;
 {This proc makes sure we’re running on at least a 512KE}
 {, it returns T if so and checks to see if the new calls exist}
 var
 err: OSErr;
 theWorld: SysEnvRec;
 begin
 {Assume we failed}
 AppleTalkOK := F;

 err := MPPOpen; {Open AppleTalk}
 if err = noErr then
 begin
 err := SysEnvirons(1, theWorld);
 if err = noErr then
 begin
 with theWorld do
 begin
 if machineType >= env512KE then
 begin
 {We’ve got at least a 512KE}
 if atDrvrVersNum >= XNCVERSION then
 {We’ve got the new calls}
 NewCallsExist := T;
 AppleTalkOK := UserRegistered; {Let the user try to register}
 end;
 end;
 end;
 end;
 end;

 procedure AppleTalkCallChecks;
 {This proc checks to see if any of ASYNC calls have finished}
 var
 oldPort: GrafPtr;
 begin
 with LookUpNamePb do
 begin
 if CallDone <> 0 then
 begin
 PbInUse := F;
 CallDone := 0;
 GetPort(oldPort);
 SetPort(UserWindow);
 UpdateNameList;
 LookUpString := ‘done’;
 DrawLookUpString;
 SetPort(oldPort);
 end;
 end;

 {Allow any AppleTalk call checks in the Hooks unit}
 HooksAppleTalkCallChecks;
 end;

 procedure CloseUpAppleTalk;
 {This proc closes up the apps AppleTalk socket lets hook}
 {code cleanup anything it did with AppleTalk}
 var
 localATPPb: ATPParamBlock;
 localMPPPb: MPPParamBlock;
 err: OSErr;
 begin
 {A LookUp call may not have finished, if new calls exist}
 {then KillNBP it, if not then we must wait till it finishes.}
 with LookUpNamePb do
 begin
 if PbInUse then
 begin
 {There is a LookUpName in progress}
 if NewCallsExist then
 begin
 {We’ve got the new calls so we can kill it}
 with localMPPPb do
 begin
 ioCompletion := nil;
 nKillQEl := @LookUpNamePb.xMPPPb;
 end;
 err := PKillNBP(@localMPPPb, SYNC);
 if err <> noErr then
 begin
 {We failed to KillNBP the LookUp so we’ll just loop till the LookUp 
is done}
 {NOTE that we test the CallDone field since its changed by the completion 
routine, NOT}
 {the PbInUse field}
 while LookUpNamePb.CallDone = 0 do
 ;
 end;
 end
 else
 {The new calls dont exist so we’ll just loop till the LookUp is done}
 {NOTE that we test the CallDone field since its changed by the completion 
routine, NOT}
 {the PbInUse field}
 while LookUpNamePb.CallDone = 0 do
 ;
 end;
 end;

 {Allow Hooks unit to closeup any AppleTalk calls it made}
 HooksCloseUpAppleTalk;

 {Close the UserSkt}
 localATPPb.atpSocket := UserSkt;
 err := PCloseATPSkt(@localATPPb, SYNC);
 if err <> noErr then
 SysBeep(1);

 {Remove the users name from the network}
 localMPPPb.entityPtr := @UserNTT;
 err := PRemoveName(@localMPPPb, SYNC);
 if err <> noErr then
 SysBeep(1);

{$IFC TALK_DEBUG }
 {Restore the SelfSendFlag to its former state}
 if NewCallsExist then
 begin
 if SelfSendOn then
 begin
 if OldSelfFlag = 0 then
 begin
 {Turn it off if it wasn’t on before}
 localMPPPb.newSelfFlag := OldSelfFlag;
 err := PSetSelfSend(@localMPPPb, SYNC);
 end;
 end;
 end;
{$ENDC}
 end;

 function AppleTalkGlobalsSetUp: Boolean;
 {This proc inits any app AppleTalk globals}
 begin
 {Assume error}
 AppleTalkGlobalsSetUp := F;

 with LookUpNamePb do
 begin
 PbInUse := F;
 CallDone := 0;
 end;

 ConfirmString := ‘never done’;
 LookUpString := ‘never done’;

 {Allow setup of AppleTalk globals from the Hooks unit}
 if HooksAppleTalkGlobalsSetUp then
 AppleTalkGlobalsSetUp := T;
 end;

 procedure DoWNEs;
 {Do a few WNEs to make sure our dialog comes up in front}
 var
 theResult: Boolean;
 begin
 theResult := WaitNextEvent(everyEvent, Evt, 0, nil);
 theResult := WaitNextEvent(everyEvent, Evt, 0, nil);
 theResult := WaitNextEvent(everyEvent, Evt, 0, nil);
 theResult := WaitNextEvent(everyEvent, Evt, 0, nil);
 theResult := WaitNextEvent(everyEvent, Evt, 0, nil);
 end;

 procedure DoAbout;
 {This proc shows our About box}
 var
 theDialog: DialogPtr;
 theDRec: DialogRecord;
 oldPort: GrafPtr;
 itemhit: Integer;
 begin
 GetPort(oldPort);

 theDialog := GetNewDialog(rABOUTDLOGID, @theDRec, WindowPtr(-1));
 SetPort(theDialog);
 ShowWindow(theDialog);

 repeat
 ModalDialog(nil, itemHit)
 until (itemHit = ok);

 CloseDialog(theDialog);

 SetPort(oldPort);
 end;

 procedure DoAppleMenu (item: Integer);
 {This proc handles the Apple Menu}
 begin
 case item of
 ABOUTITEM: 
 DoAbout;
 otherwise
 end;
 end;

 procedure DoFileMenu (item: Integer);
 {This proc handles the File Menu}
 begin
 case item of
 QUITITEM: 
 DoneFlag := T;
 otherwise
 end;
 end;

 procedure DoLookUp;
 {This proc does an ASYNC LookUpName}
 var
 oldPort: GrafPtr;
 err: OSErr;
 begin
 with LookUpNamePb do
 begin
 if PbInUse = F then
 begin
 {If we’re not already doing one}
 NBPSetEntity(@LookUpNTT, ANYOJB, USERTYPE, ANYZONE); {Setup who to look 
for}

 CallDone := 0;

 with xMPPPb do
 begin
 ioCompletion := @XCompletionRoutine;
{$IFC TALK_DEBUG }
 interval := 2;
 count := 3;
{$ELSC}
 interval := 6;
 count := 5;
{$ENDC}
 entityPtr := @LookUpNTT;
 retBuffPtr := @LookUpBuffer;
 retBuffSize := sizeof(LookUpBuffer);
 maxToGet := MAXTOLOOKUP;
 end;

 err := PLookUpName(@xMPPPb, ASYNC);
 {Show the LookUps progress}
 GetPort(oldPort);
 SetPort(UserWindow);
 if err = noErr then
 begin
 PbInUse := T;
 LookUpString := ‘in progress’;
 end
 else
 LookUpString := ‘error’;
 DrawLookUpString;
 SetPort(oldPort);
 end;
 end;
 end;

 procedure DoConfirm;
 {This proc does a SYNC ConfirmName}
 var
 theAddress: AddrBlock;
 nameIsSelected: Boolean;
 theCell: Cell;
 extractedNTT, ntt2Confirm: EntityName;
 oldPort: GrafPtr;
 err: OSErr;
 begin
 if LookUpNamePb.PbInUse then
 begin
 {Dont try to ConfirmName while a LookUp is in progress}
 GetPort(oldPort);
 SetPort(UserWindow);
 ConfirmString := ‘LookUp in progress’;
 DrawConfirmString;
 SetPort(oldPort);
 end
 else
 begin
 theCell.h := 0;
 theCell.v := 0;
 nameIsSelected := LGetSelect(T, theCell, NameListHdl); {Get the selected 
list item}

 if nameIsSelected then
 begin
 {Only do a Confirm if an item in the list is selected}
 theCell.v := theCell.v + 1;
 err := NBPExtract(@LookUpBuffer, NameListLength, theCell.v, extractedNTT, 
theAddress); {Get the address}
 if err = noErr then
 begin
 NBPSetEntity(@ntt2Confirm, extractedNTT.objStr, extractedNTT.typeStr, 
extractedNTT.zoneStr);

 err := NTTExists(ntt2Confirm, theAddress); {Check if the NTT exists}
 {Show the result of the ConfirmName}
 GetPort(oldPort);
 SetPort(UserWindow);
 if err = noErr then
 ConfirmString := ‘confirmed’
 else
 begin
 case err of
 nbpNoConfirm: 
 ConfirmString := ‘can’’t confirm ‘;
 nbpConfDiff: 
 ConfirmString := ‘moved’;
 otherwise
 ConfirmString := ‘error’;
 end;
 end;
 DrawConfirmString;
 SetPort(oldPort);
 end;
 end;
 end;
 end;

 procedure DoSendRequest;
 {This is the generic codes response to choosing ‘Send’}
 begin
 SysBeep(1);
 end;

 procedure DoSpecialMenu (item: Integer);
 {This proc handles the Special Menu}
 begin
 case item of
 LOOKUPITEM: 
 DoLookUp;
 CONFIRMITEM: 
 DoConfirm;
 SENDITEM: 
 DoSendRequest;
 otherwise
 end;
 end;

 procedure DoMenu (menuChoice: LongInt);
 {This proc handles menu selections}
 var
 theItem, theMenu: Integer;
 begin
 theItem := LoWord(menuChoice);
 theMenu := HiWord(menuChoice);

 if HookedMenuChoice(theMenu, theItem) = F then
 begin
 {Hook code didn’t handle menu choice so generic code must}
 case theMenu of
 APPLEMENUID: 
 DoAppleMenu(theItem);
 FILEMENUID: 
 DoFileMenu(theItem);
 SPECIALMENUID: 
 DoSpecialMenu(theItem);
 otherwise
 end;
 end;

 HiliteMenu(0);
 end;

 procedure DoKDown;
 {This code handles keydowns}
 type
 Trick = packed record
 case Boolean of
 TRUE: (
 long: Longint
 );
 FALSE: (
 chr3, chr2, chr1, chr0: Char
 )
 end;
 var
 charCode: Char;
 trickVar: Trick;
 begin
 trickVar.long := Evt.message;
 charCode := trickVar.chr0;
{IF BitAnd(Evt.modifiers, CmdKey) = CmdKey THEN}
 if BAnd(CmdKey, Evt.modifiers) <> 0 then
 DoMenu(MenuKey(charCode));
 end;

 procedure DoContentHit;
 {This code handles hits in the apps windows}
 var
 clickResult: Boolean;
 localPt: Point;
 begin
 if WhichWindow <> FrontWindow then
 SelectWindow(WhichWindow)
 else
 begin
 localPt := Evt.where;
 SetPort(WhichWindow);
 if WhichWindow = UserWindow then
 begin
 if UserWindowProcsChanged then
 HooksUserWindowDoContentHit {Let the hook code do its magic}
 else
 begin
 GlobalToLocal(localPt);
 if PtinRect(localPt, ListFrameRect) then
 clickResult := LClick(localPt, Evt.modifiers, NameListHdl);
 end;
 end
 else
 {A hook window was hit, let it handle it}
 DoHooksWindowContentHit;
 end;
 end;

 procedure DoMDown;
 {This code handles mouse down events}
 var
 theResult: Integer;
 begin
 theResult := FindWindow(Evt.where, WhichWindow);
 case theResult of
 inDrag: 
 DoDrag;
 inMenuBar: 
 DoMenu(MenuSelect(Evt.where));
 inContent: 
 DoContentHit;
 otherwise
 end;
 end;

 procedure MainLoop;
 {This is the apps event loop}
 var
 theResult: Boolean;
 begin
 while DoneFlag = F do
 begin
 theResult := WaitNextEvent(everyEvent, Evt, SleepTime, nil);
 AppleTalkCallChecks; {Check to see if any ASYNC calls completed}
 if theResult then
 begin
 {Handle any event}
 case Evt.what of
 keyDown: 
 DoKDown;
 mouseDown: 
 DoMDown;
 activateEvt: 
 DoActivate;
 updateEvt: 
 DoUpdate;
 MFEVENT: 
 DoMFEvent;
 otherwise
 end;
 end;
 end;
 end;

{$I-}
 {We do our own inits}
begin
 SetUpToolbox;
 SetUpGlobals;
 DoWNEs;

 if AppleTalkOK then
 begin
 SetUpMenus;

 if GotWindows then
 begin

 if AppleTalkGlobalsSetUp then
 begin

 MainLoop;

 CloseWindows;
 end;
 end;

 CloseUpAppleTalk;
 end;

 ExitToShell;
end.

Listing: resources.r

resource ‘SIZE’ (-1) {
 dontSaveScreen,
 acceptSuspendResumeEvents,
 disableOptionSwitch,
 canBackground,
 multiFinderAware,
 81920,
 81920
};

resource ‘DITL’ (128, purgeable, preload) {
 { /* array DITLarray: 3 elements */
 /* [1] */
 {130, 134, 150, 213},
 Button {
 enabled,
 “Continue”
 },
 /* [2] */
 {8, 63, 26, 298},
 StaticText {
 disabled,
 “AACK  - Version 1.1 - by Ajay Nath”
 },
 /* [3] */
 {56, 80, 74, 266},
 StaticText {
 enabled,
 “Copyright © 1989 Ajay Nath”
 }
 }
};

resource ‘DITL’ (129, purgeable, preload) {
 { /* array DITLarray: 4 elements */
 /* [1] */
 {89, 23, 109, 83},
 Button {
 enabled,
 “OK”
 },
 /* [2] */
 {90, 250, 110, 310},
 Button {
 enabled,
 “Cancel”
 },
 /* [3] */
 {6, 10, 41, 319},
 StaticText {
 disabled,
 “Enter a name (31 characters or less) to “
 “use on the network”
 },
 /* [4] */
 {52, 16, 72, 317},
 EditText {
 enabled,
 “”
 }
 }
};

resource ‘DLOG’ (128, purgeable, preload) {
 {36, 146, 204, 490},
 dBoxProc,
 invisible,
 noGoAway,
 0x0,
 128,
 “”
};

resource ‘DLOG’ (129, purgeable, preload) {
 {36, 150, 160, 482},
 dBoxProc,
 invisible,
 noGoAway,
 0x0,
 129,
 “”
};

resource ‘MENU’ (128, preload) {
 128,
 textMenuProc,
 0x7FFFFFFD,
 enabled,
 apple,
 { /* array: 2 elements */
 /* [1] */
 “About AACK ”, noIcon, “”, “”, plain,
 /* [2] */
 “-”, noIcon, “”, “”, plain
 }
};

resource ‘MENU’ (129, preload) {
 129,
 textMenuProc,
 allEnabled,
 enabled,
 “File”,
 { /* array: 1 elements */
 /* [1] */
 “Quit”, noIcon, “Q”, “”, plain
 }
};

resource ‘MENU’ (130, preload) {
 130,
 textMenuProc,
 0x7FFFFFFD,
 enabled,
 “Edit”,
 { /* array: 6 elements */
 /* [1] */
 “Undo”, noIcon, “Z”, “”, plain,
 /* [2] */
 “-”, noIcon, “”, “”, plain,
 /* [3] */
 “Cut”, noIcon, “X”, “”, plain,
 /* [4] */
 “Copy”, noIcon, “C”, “”, plain,
 /* [5] */
 “Paste”, noIcon, “V”, “”, plain,
 /* [6] */
 “Clear”, noIcon, “”, “”, plain
 }
};

resource ‘MENU’ (131, preload) {
 131,
 textMenuProc,
 allEnabled,
 enabled,
 “Special”,
 { /* array: 3 elements */
 /* [1] */
 “LookUp”, noIcon, “L”, “”, plain,
 /* [2] */
 “Confirm”, noIcon, “F”, “”, plain,
 /* [3] */
 “Send”, noIcon, “S”, “”, plain
 }
};