supermario/base/SuperMarioProj.1994-02-09/Interfaces/PInterfaces/Balloons.p
2019-06-29 23:17:50 +08:00

261 lines
11 KiB
OpenEdge ABL
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

{
Created: Saturday, July 27, 1991 at 8:04 PM
Balloons.p
Pascal Interface to the Macintosh Libraries
Copyright Apple Computer, Inc. 1990-1991
All rights reserved
This file is used in these builds: BigBang
Change History (most recent first):
<20> 7/30/91 JL Updated Copyright. Restored Comments. <19> 1/28/91 LN Checked in
Database Generated File from DSG.
<18> 1/24/91 stb RC: remove HMFillCitationString; change all pics to picts
<17> 12/14/90 dba <JDR> get rid of RectPtr which is now in Types.p
<16> 9/24/90 RLC Fix the interface to HMGetIndHelpMsg to pass $1306 as the
selector (not $1106) as there are 19 words of parameters (not 17
as originally counted). This will result in a crash if this call
is made as procHelper won't copy enuf parameters to & from the
stack!
<15> 9/14/90 RLC Fix the messed up file that projector corrupted (again).
<14> 8/31/90 RLC Remove extraneous and incorrect equates (all new for b2).
<13> 8/22/90 RLC Remove some extraneous constants.
<11+> 8/17/90 RLC Add some new constants to support the new interfaces.
<10+> 7/24/90 RLC Update HMShowBalloon(), remove HMMouseInApplRgn(), add
HMGetIndHelpMsg().
<9+> 6/12/90 RLC Change Help menu id's and icons to -16490.
<9> 5/31/90 RLC Change HMState to HMGetHelpMenuHandle function.
<8> 4/24/90 RLC Add HMGetDialogResID & HMGetMenuResID.
<6+> 4/17/90 RLC Add reference to HMFillCitationString routine.
<6> 4/11/90 KSM New equates for system menu patch.
<4+> 4/5/90 RLC Add new HMExtractHelpMsg interface.
<4> 4/4/90 KSM Now $USES Traps.p and the pre-defined constant _Pack14 instead
of $A830 or ourPackNum.
<3> 4/3/90 ngk Converted to auto-including interface file
<2> 3/20/90 RLC Rip some extraneous CONSTs.
<1> 3/20/90 RLC first checked in
To Do:
}
{$IFC UNDEFINED UsingIncludes}
{$SETC UsingIncludes := 0}
{$ENDC}
{$IFC NOT UsingIncludes}
UNIT Balloons;
INTERFACE
{$ENDC}
{$IFC UNDEFINED UsingBalloons}
{$SETC UsingBalloons := 1}
{$I+}
{$SETC BalloonsIncludes := UsingIncludes}
{$SETC UsingIncludes := 1}
{$IFC UNDEFINED UsingTypes}
{$I $$Shell(PInterfaces)Types.p}
{$ENDC}
{$IFC UNDEFINED UsingQuickdraw}
{$I $$Shell(PInterfaces)Quickdraw.p}
{$ENDC}
{$IFC UNDEFINED UsingMenus}
{$I $$Shell(PInterfaces)Menus.p}
{$ENDC}
{$IFC UNDEFINED UsingTextEdit}
{$I $$Shell(PInterfaces)TextEdit.p}
{$ENDC}
{$IFC UNDEFINED UsingTraps}
{$I $$Shell(PInterfaces)Traps.p}
{$ENDC}
{$SETC UsingIncludes := BalloonsIncludes}
CONST
hmBalloonHelpVersion = $0002; { The real version of the Help Manager }
{Help Mgr error range: -850 to -874}
hmHelpDisabled = -850; { Show Balloons mode was off, call to routine ignored }
hmBalloonAborted = -853; { Returned if mouse was moving or mouse wasn't in window port rect }
hmSameAsLastBalloon = -854; { Returned from HMShowMenuBalloon if menu & item is same as last time }
hmHelpManagerNotInited = -855; { Returned from HMGetHelpMenuHandle if help menu not setup }
hmSkippedBalloon = -857; { Returned from calls if helpmsg specified a skip balloon }
hmWrongVersion = -858; { Returned if help mgr resource was the wrong version }
hmUnknownHelpType = -859; { Returned if help msg record contained a bad type }
hmOperationUnsupported = -861; { Returned from HMShowBalloon call if bad method passed to routine }
hmNoBalloonUp = -862; { Returned from HMRemoveBalloon if no balloon was visible when call was made }
hmCloseViewActive = -863; { Returned from HMRemoveBalloon if CloseView was active }
kHMHelpMenuID = -16490; { Resource ID and menu ID of help menu }
kHMAboutHelpItem = 1; { help menu item number of About Balloon Help }
kHMShowBalloonsItem = 3; { help menu item number of Show/Hide Balloons }
kHMHelpID = -5696; { ID of various Help Mgr package resources (in Pack14 range) }
kBalloonWDEFID = 126; { Resource ID of the WDEF proc used in standard balloons }
{ Dialog item template type constant }
helpItem = 1; { key value in DITL template that corresponds to the help item }
{ Options for Help Manager resources in 'hmnu', 'hdlg', 'hrct', 'hovr', & 'hfdr' resources }
hmDefaultOptions = 0; { default options for help manager resources }
hmUseSubID = 1; { treat resID's in resources as subID's of driver base ID (for Desk Accessories) }
hmAbsoluteCoords = 2; { ignore window port origin and treat rectangles as absolute coords (local to window) }
hmSaveBitsNoWindow = 4; { don't create a window, just blast bits on screen. No update event is generated }
hmSaveBitsWindow = 8; { create a window, but restore bits behind window when window goes away & generate update event }
hmMatchInTitle = 16; { for hwin resources, match string anywhere in window title string }
{ Constants for Help Types in 'hmnu', 'hdlg', 'hrct', 'hovr', & 'hfdr' resources }
kHMStringItem = 1; { pstring used in resource }
kHMPictItem = 2; { 'PICT' ResID used in resource }
kHMStringResItem = 3; { 'STR#' ResID & index used in resource }
kHMTEResItem = 6; { Styled Text Edit ResID used in resource ('TEXT' & 'styl') }
kHMSTRResItem = 7; { 'STR ' ResID used in resource }
kHMSkipItem = 256; { don't display a balloon }
kHMCompareItem = 512; { Compare pstring in menu item w/ PString in resource item ('hmnu' only) }
kHMNamedResourceItem = 1024; { Use pstring in menu item to get 'STR#', 'PICT', or 'STR ' resource ('hmnu' only) }
kHMTrackCntlItem = 2048; { Reserved }
{ Constants for hmmHelpType's when filling out HMMessageRecord }
khmmString = 1; { help message contains a PString }
khmmPict = 2; { help message contains a resource ID to a 'PICT' resource }
khmmStringRes = 3; { help message contains a res ID & index to a 'STR#' resource }
khmmTEHandle = 4; { help message contains a Text Edit handle }
khmmPictHandle = 5; { help message contains a Picture handle }
khmmTERes = 6; { help message contains a res ID to 'TEXT' & 'styl' resources }
khmmSTRRes = 7; { help message contains a res ID to a 'STR ' resource }
{ ResTypes for Styled TE Handles in Resources }
kHMTETextResType = 'TEXT'; { Resource Type of text data for styled TE record w/o style info }
kHMTEStyleResType = 'styl'; { Resource Type of style information for styled TE record }
{ Generic defines for the state parameter used when extracting 'hmnu' & 'hdlg' messages }
kHMEnabledItem = 0; { item is enabled, but not checked or control value = 0 }
kHMDisabledItem = 1; { item is disabled, grayed in menus or disabled in dialogs }
kHMCheckedItem = 2; { item is enabled, and checked or control value = 1 }
kHMOtherItem = 3; { item is enabled, and control value > 1 }
{ Resource Types for whichType parameter used when extracting 'hmnu' & 'hdlg' messages }
kHMMenuResType = 'hmnu'; { ResType of help resource for supporting menus }
kHMDialogResType = 'hdlg'; { ResType of help resource for supporting dialogs }
kHMWindListResType = 'hwin'; { ResType of help resource for supporting windows }
kHMRectListResType = 'hrct'; { ResType of help resource for rectangles in windows }
kHMOverrideResType = 'hovr'; { ResType of help resource for overriding system balloons }
kHMFinderApplResType = 'hfdr'; { ResType of help resource for custom balloon in Finder }
{ Method parameters to pass to HMShowBalloon }
kHMRegularWindow = 0; { Create a regular window floating above all windows }
kHMSaveBitsNoWindow = 1; { Just save the bits and draw (for MDEF calls) }
kHMSaveBitsWindow = 2; { Regular window, save bits behind, AND generate update event }
TYPE
HMStringResType = RECORD
hmmResID: INTEGER;
hmmIndex: INTEGER;
END;
HMMessageRecPtr = ^HMMessageRecord;
HMMessageRecord = RECORD
hmmHelpType : INTEGER;
CASE INTEGER OF
khmmString:
(hmmString: STR255);
khmmPict:
(hmmPict: INTEGER);
khmmStringRes:
(hmmStringRes: HMStringResType);
khmmTEHandle:
(hmmTEHandle: TEHandle);
khmmPictHandle:
(hmmPictHandle: PicHandle);
khmmTERes:
(hmmTERes: INTEGER);
khmmSTRRes:
(hmmSTRRes: INTEGER);
END;
{ Public Interfaces }
FUNCTION HMGetHelpMenuHandle(VAR mh: MenuHandle): OSErr;
INLINE $303C,$0200,_Pack14;
FUNCTION HMShowBalloon(aHelpMsg: HMMessageRecord;
tip: Point;
alternateRect: RectPtr;
tipProc: Ptr;
theProc: INTEGER;
variant: INTEGER;
method: INTEGER): OSErr;
INLINE $303C,$0B01,_Pack14;
FUNCTION HMRemoveBalloon: OSErr;
INLINE $303C,$0002,_Pack14;
FUNCTION HMGetBalloons: BOOLEAN;
INLINE $303C,$0003,_Pack14;
FUNCTION HMSetBalloons(flag: BOOLEAN): OSErr;
INLINE $303C,$0104,_Pack14;
FUNCTION HMShowMenuBalloon(itemNum: INTEGER;
itemMenuID: INTEGER;
itemFlags: LONGINT;
itemReserved: LONGINT;
tip: Point;
alternateRect: RectPtr;
tipProc: Ptr;
theProc: INTEGER;
variant: INTEGER): OSErr;
INLINE $303C,$0E05,_Pack14;
FUNCTION HMGetIndHelpMsg(whichType: ResType;
whichResID: INTEGER;
whichMsg: INTEGER;
whichState: INTEGER;
VAR options: LONGINT;
VAR tip: Point;
VAR altRect: Rect;
VAR theProc: INTEGER;
VAR variant: INTEGER;
VAR aHelpMsg: HMMessageRecord;
VAR count: INTEGER): OSErr;
INLINE $303C,$1306,_Pack14;
FUNCTION HMIsBalloon: BOOLEAN;
INLINE $303C,$0007,_Pack14;
FUNCTION HMSetFont(font: INTEGER): OSErr;
INLINE $303C,$0108,_Pack14;
FUNCTION HMSetFontSize(fontSize: INTEGER): OSErr;
INLINE $303C,$0109,_Pack14;
FUNCTION HMGetFont(VAR font: INTEGER): OSErr;
INLINE $303C,$020A,_Pack14;
FUNCTION HMGetFontSize(VAR fontSize: INTEGER): OSErr;
INLINE $303C,$020B,_Pack14;
FUNCTION HMSetDialogResID(resID: INTEGER): OSErr;
INLINE $303C,$010C,_Pack14;
FUNCTION HMSetMenuResID(menuID: INTEGER;
resID: INTEGER): OSErr;
INLINE $303C,$020D,_Pack14;
FUNCTION HMBalloonRect(aHelpMsg: HMMessageRecord;
VAR coolRect: Rect): OSErr;
INLINE $303C,$040E,_Pack14;
FUNCTION HMBalloonPict(aHelpMsg: HMMessageRecord;
VAR coolPict: PicHandle): OSErr;
INLINE $303C,$040F,_Pack14;
FUNCTION HMScanTemplateItems(whichID: INTEGER;
whichResFile: INTEGER;
whichType: ResType): OSErr;
INLINE $303C,$0410,_Pack14;
FUNCTION HMExtractHelpMsg(whichType: ResType;whichResID: INTEGER;whichMsg: INTEGER;
whichState: INTEGER;VAR aHelpMsg: HMMessageRecord): OSErr;
INLINE $303C,$0711,_Pack14;
FUNCTION HMGetDialogResID(VAR resID: INTEGER): OSErr;
INLINE $303C,$0213,_Pack14;
FUNCTION HMGetMenuResID(menuID: INTEGER;VAR resID: INTEGER): OSErr;
INLINE $303C,$0314,_Pack14;
FUNCTION HMGetBalloonWindow(VAR window: WindowPtr): OSErr;
INLINE $303C,$0215,_Pack14;
{$ENDC} { UsingBalloons }
{$IFC NOT UsingIncludes}
END.
{$ENDC}