2017-10-21 23:40:19 +00:00
|
|
|
/*********************************************************
|
|
|
|
|
*
|
|
|
|
|
* File: HyperXCMD.h
|
|
|
|
|
*
|
|
|
|
|
* Definition file for HyperCard XCMDs and XFCNs in C
|
|
|
|
|
* For use with HyperCard IIGS Version 1.1
|
|
|
|
|
*
|
|
|
|
|
* Copyright Apple Computer, Inc. 1990-91
|
|
|
|
|
* All Rights Reserved
|
|
|
|
|
*
|
|
|
|
|
* Copyright 1992, Byte Works, Inc.
|
|
|
|
|
*
|
|
|
|
|
*********************************************************/
|
|
|
|
|
|
|
|
|
|
#ifndef __TYPES__
|
|
|
|
|
#include <TYPES.h>
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifndef __HYPERXCMD__
|
|
|
|
|
#define __HYPERXCMD__
|
|
|
|
|
|
|
|
|
|
#define _CallBackVector 0x00E10220L
|
|
|
|
|
|
|
|
|
|
/* XCMDBlock constants for event.what... */
|
|
|
|
|
#define xOpenEvt 1000 /* the first event after you are created */
|
|
|
|
|
#define xCloseEvt 1001 /* your window is being forced close */
|
|
|
|
|
#define xHidePalettesEvt 1004 /* someone called HideHCPalettes */
|
|
|
|
|
#define xShowPalettesEvt 1005 /* someone called ShowHCPalettes */
|
|
|
|
|
#define xCursorWithin 1300 /* cursor is within the window */
|
|
|
|
|
|
|
|
|
|
/* XWindow styles */
|
|
|
|
|
#define xWindoidStyle 0
|
|
|
|
|
#define xRectStyle 1
|
|
|
|
|
#define xShadowStyle 2
|
|
|
|
|
#define xDialogStyle 3
|
|
|
|
|
|
|
|
|
|
typedef String(19) Str19, *String19Ptr, **String19Handle;
|
|
|
|
|
typedef String(31) Str31, *String31Ptr, **String31Handle;
|
|
|
|
|
|
|
|
|
|
struct XCMDBlock {
|
|
|
|
|
int paramCount;
|
|
|
|
|
Handle params[16];
|
|
|
|
|
Handle returnValue;
|
|
|
|
|
Boolean passFlag;
|
|
|
|
|
Word userID;
|
|
|
|
|
Word returnStat; /* 0 if normal, 1 if error */
|
|
|
|
|
};
|
|
|
|
|
typedef struct XCMDBlock XCMDBlock, *XCMDPtr;
|
|
|
|
|
|
|
|
|
|
struct XWEventInfo {
|
|
|
|
|
WindowPtr eventWindow;
|
|
|
|
|
EventRecord event;
|
|
|
|
|
long eventParams[9];
|
|
|
|
|
Handle eventResult;
|
|
|
|
|
};
|
|
|
|
|
typedef struct XWEventInfo XWEventInfo, *XWEventInfoPtr;
|
|
|
|
|
|
|
|
|
|
/**** HyperTalk Utilities ****/
|
|
|
|
|
extern pascal Handle EvalExpr(Str255) inline(0x0002,_CallBackVector);
|
|
|
|
|
extern pascal void SendCardMessage(Str255 msg) inline(0x0001,_CallBackVector);
|
|
|
|
|
extern pascal void SendHCMessage(Str255) inline(0x0005,_CallBackVector);
|
|
|
|
|
|
|
|
|
|
/**** Memory Utilities ****/
|
|
|
|
|
extern pascal Handle GetGlobal(Str255) inline(0x0012,_CallBackVector);
|
|
|
|
|
extern pascal void SetGlobal(Str255, Handle) inline(0x0013,_CallBackVector);
|
|
|
|
|
extern pascal void ZeroBytes(Ptr, long) inline(0x0006,_CallBackVector);
|
|
|
|
|
|
|
|
|
|
/**** String Utilities ****/
|
|
|
|
|
extern pascal Boolean GSStringEqual(GSString255Hndl, GSString255Hndl) inline(0x0022,_CallBackVector);
|
|
|
|
|
extern pascal void ScanToReturn(Ptr *) inline(0x001C,_CallBackVector);
|
|
|
|
|
extern pascal void ScanToZero(Ptr *) inline(0x001D,_CallBackVector);
|
|
|
|
|
extern pascal Boolean StringEqual(Str255, Str255) inline(0x001A,_CallBackVector);
|
|
|
|
|
extern pascal Longint StringLength(Ptr) inline(0x0003,_CallBackVector);
|
|
|
|
|
extern pascal Ptr StringMatch(Str255, Ptr) inline(0x0004,_CallBackVector);
|
|
|
|
|
|
|
|
|
|
/**** String Conversions ****/
|
|
|
|
|
extern pascal Str31 BoolToStr(Boolean) inline(0x0010,_CallBackVector);
|
|
|
|
|
extern pascal GSString255Hndl CopyGSString(GSString255Hndl) inline(0x0020,_CallBackVector);
|
|
|
|
|
extern pascal Str31 ExtToStr(Extended) inline(0x0011,_CallBackVector);
|
|
|
|
|
extern pascal GSString255Hndl GSConcat(GSString255Hndl, GSString255Hndl) inline(0x0021,_CallBackVector);
|
|
|
|
|
extern pascal Str255 GSToPString(GSString255Hndl) inline(0x001E,_CallBackVector);
|
|
|
|
|
extern pascal Handle GSToZero(GSString255Hndl) inline(0x0023,_CallBackVector);
|
|
|
|
|
extern pascal Str31 LongToStr(Longint) inline(0x000D,_CallBackVector);
|
|
|
|
|
extern pascal Str19 NumToHex(Longint, word) inline(0x000F,_CallBackVector);
|
|
|
|
|
extern pascal Str31 NumToStr(Longint) inline(0x000E,_CallBackVector);
|
|
|
|
|
extern pascal void PointToStr(Point, Str255) inline(0x002D,_CallBackVector);
|
|
|
|
|
extern pascal Handle PasToZero(Str255) inline(0x0007,_CallBackVector);
|
|
|
|
|
extern pascal GSString255Hndl PToGSString(Str255) inline(0x001F,_CallBackVector);
|
|
|
|
|
extern pascal void RectToStr(Rect *, Str255) inline(0x002E,_CallBackVector);
|
|
|
|
|
extern pascal void ReturnToPas(Ptr, Str255 *) inline(0x001B,_CallBackVector);
|
|
|
|
|
extern pascal Boolean StrToBool(Str31) inline(0x000B,_CallBackVector);
|
|
|
|
|
extern pascal extended StrToExt(Str31) inline(0x000C,_CallBackVector);
|
|
|
|
|
extern pascal Longint StrToLong(Str31) inline(0x0009,_CallBackVector);
|
|
|
|
|
extern pascal Longint StrToNum(Str31) inline(0x000A,_CallBackVector);
|
|
|
|
|
extern pascal void StrToPoint(Str255, Point) inline(0x002F,_CallBackVector);
|
|
|
|
|
extern pascal void StrToRect(Str255, Rect *) inline(0x0030,_CallBackVector);
|
|
|
|
|
extern pascal GSString255Hndl ZeroToGS(Handle) inline(0x0024,_CallBackVector);
|
|
|
|
|
extern pascal void ZeroToPas(Ptr, Str255 *) inline(0x0008,_CallBackVector);
|
|
|
|
|
|
|
|
|
|
/**** Field Utilities ****/
|
|
|
|
|
extern pascal Handle GetFieldByID(Boolean, word) inline(0x0016,_CallBackVector);
|
|
|
|
|
extern pascal Handle GetFieldByName(Boolean, Str255) inline(0x0014,_CallBackVector);
|
|
|
|
|
extern pascal Handle GetFieldByNum(Boolean, word) inline(0x0015,_CallBackVector);
|
|
|
|
|
extern pascal void SetFieldByID(Boolean, word, Handle) inline(0x0019,_CallBackVector);
|
|
|
|
|
extern pascal void SetFieldByName(Boolean, Str255, Handle) inline(0x0017,_CallBackVector);
|
|
|
|
|
extern pascal void SetFieldByNum(Boolean, word, Handle) inline(0x0018,_CallBackVector);
|
|
|
|
|
|
|
|
|
|
/**** Graphic Utilities ****/
|
|
|
|
|
extern pascal void ChangedMaskAndData(word) inline(0x002C,_CallBackVector);
|
|
|
|
|
extern pascal void GetMaskAndData(LocInfoPtr, LocInfoPtr) inline(0x002B,_CallBackVector);
|
|
|
|
|
|
|
|
|
|
/**** Miscellaneous Utilities ****/
|
|
|
|
|
extern pascal void BeginXSound(void) inline(0x0029,_CallBackVector);
|
|
|
|
|
extern pascal void EndXSound(void) inline(0x002A,_CallBackVector);
|
|
|
|
|
|
|
|
|
|
/**** Resource Names Utilities ****/
|
|
|
|
|
extern pascal Boolean FindNamedResource(word, Str255, word *, long *) inline(0x0026,_CallBackVector);
|
|
|
|
|
extern pascal Str255 GetResourceName(word, long) inline(0x0028,_CallBackVector);
|
|
|
|
|
extern pascal Handle LoadNamedResource(word, Str255) inline(0x0025,_CallBackVector);
|
|
|
|
|
extern pascal void SetResourceName(word, long, Str255) inline(0x0027,_CallBackVector);
|
|
|
|
|
|
|
|
|
|
/**** Creating and Disposing XWindoids ****/
|
|
|
|
|
extern pascal WindowPtr NewXWindow(Rect, Str31, Boolean, word) inline(0x0031,_CallBackVector);
|
|
|
|
|
extern pascal void CloseXWindow(WindowPtr) inline(0x0033,_CallBackVector);
|
|
|
|
|
|
|
|
|
|
/**** XWindoid Utilities ****/
|
|
|
|
|
extern pascal Longint GetXWindowValue(WindowPtr) inline(0x0037,_CallBackVector);
|
|
|
|
|
extern pascal void HideHCPalettes(void) inline(0x0034,_CallBackVector);
|
|
|
|
|
extern pascal void ShowHCPalettes(void) inline(0x0035,_CallBackVector);
|
|
|
|
|
extern pascal void SetXWIdleTime(WindowPtr, Longint) inline(0x0032,_CallBackVector);
|
|
|
|
|
extern pascal void SetXWindowValue(WindowPtr, Longint) inline(0x0036,_CallBackVector);
|
|
|
|
|
extern pascal void XWAllowReEntrancy(WindowPtr, Boolean, Boolean) inline(0x0038,_CallBackVector);
|
|
|
|
|
|
|
|
|
|
#endif
|
