Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!mips!apple!claris!UUCP!peirce
From: peirce@outpost.UUCP (Michael Peirce)
Newsgroups: comp.sys.mac.programmer
Subject: Re: Help Manager resources 'hfdr' 'hmnu' 'hwin' etc ....(long)
Message-ID: <0B01FFFB.huoczf@outpost.UUCP>
Date: 11 Jun 91 16:20:41 GMT
Reply-To: peirce@outpost.UUCP (Michael Peirce)
Organization: Peirce Software
Lines: 52
X-Mailer: uAccess - Mac Release: 1.1.b3

The Ballon help resource are defined in BallonHelp.r in the latest
MPW.

Here's the definition for hfdr:

/*----------------------------hfdr % Help Mgr Finder Application Balloon Template-------------------------*/
type 'hfdr' {
		integer;									/* Help Version 		*/
		longint;									/* Options				*/
		integer;									/* Balloon ProcID		*/
		integer; 									/* Balloon Variant		*/
		integer = $$CountOf(HFdrArray);				/* Count of hfdr Msgs	*/

		array HFdrArray {
				switch {
					case HMStringItem:
hfdrStringBeg:			integer = (hfdrStringEnd[$$ArrayIndex(HFdrArray)] - hfdrStringBeg[$$ArrayIndex(HFdrArray)]) / 8;
						key int = HMStringItemID;	/* helpType			*/
						pstring;					/* STR255			*/
						align word;					/* keep aligned		*/
hfdrStringEnd:
					case HMPictItem:
hfdrPictBeg:			integer = (hfdrPictEnd[$$ArrayIndex(HFdrArray)] - hfdrPictBeg[$$ArrayIndex(HFdrArray)]) / 8;
						key int = HMPictItemID;		/* helpType			*/
						integer;					/* Picture Res ID	*/
hfdrPictEnd:
					case HMStringResItem:
hfdrStringResBeg:		integer = (hfdrStringResEnd[$$ArrayIndex(HFdrArray)] - hfdrStringResBeg[$$ArrayIndex(HFdrArray)]) / 8;
						key int = HMStringResItemID;/* helpType			*/
						integer; integer;			/* STR# ID, index #	*/
hfdrStringResEnd:
					case HMTEResItem:
hfdrTEResBeg:			integer = (hfdrTEResEnd[$$ArrayIndex(HFdrArray)] - hfdrTEResBeg[$$ArrayIndex(HFdrArray)]) / 8;
						key int = HMTEResItemID;	/* helpType			*/
						integer;					/* TextEdit res ID	*/
hfdrTEResEnd:
					case HMSTRResItem:
hfdrSTRResBeg:			integer = (hfdrSTRResEnd[$$ArrayIndex(HFdrArray)] - hfdrSTRResBeg[$$ArrayIndex(HFdrArray)]) / 8;
						key int = HMSTRResItemID;	/* helpType			*/
						integer;					/* STR res ID		*/
hfdrSTRResEnd:
					case HMSkipItem:
hfdrSkipBeg:			integer = (hfdrSkipEnd[$$ArrayIndex(HFdrArray)] - hfdrSkipBeg[$$ArrayIndex(HFdrArray)]) / 8;
						key int = HMSkipItemID;		/* skip item (leave a hole) */
hfdrSkipEnd:
				};
		};
};

--  Michael Peirce         --   outpost!peirce@claris.com
--  Peirce Software        --   Suite 301, 719 Hibiscus Place
--  Macintosh Programming  --   San Jose, California 95117
--           & Consulting  --   (408) 244-6554, AppleLink: PEIRCE