{
Created: 2:40 PM Thu, 18 Feb 1993
    AERegistry.p
    Pascal Interface to the Apple Event Registry

        Copyright Apple Computer, Inc.    1993
        All rights reserved
}


{$IFC UNDEFINED UsingIncludes}
{$SETC UsingIncludes := 0}
{$ENDC}

{$IFC NOT UsingIncludes}
	UNIT AERegistry;
	INTERFACE
{$ENDC}

{$IFC UNDEFINED UsingAERegistry}
{$SETC UsingAERegistry := 1}

{$I+}
{$SETC AERegistryIncludes := UsingIncludes}
{$SETC UsingIncludes := 1}
{$IFC UNDEFINED UsingTypes}
{$I $$Shell(PInterfaces)Types.p}
{$ENDC}
{$IFC UNDEFINED UsingAppleEvents}
{$I $$Shell(PInterfaces)AppleEvents.p}
{$ENDC}
{$SETC UsingIncludes := AERegistryIncludes}

CONST
	cAEList = 'list';
	cApplication = 'capp';
	cArc = 'carc';
	cBoolean = 'bool';
	cCell = 'ccel';
	cChar = 'cha ';
	cColorTable = 'clrt';
	cColumn = 'ccol';
	cDocument = 'docu';
	cDrawingArea = 'cdrw';
	cEnumeration = 'enum';
	cFile = 'file';
	cFixed = 'fixd';
	cFixedPoint = 'fpnt';
	cFixedRectangle = 'frct';
	cGraphicLine = 'glin';
	cGraphicObject = 'cgob';
	cGraphicShape = 'cgsh';
	cGraphicText = 'cgtx';
	cGroupedGraphic = 'cpic';
	cInsertionLoc = 'insl';
	cInsertionPoint = 'cins';
	cIntlText = 'itxt';
	cIntlWritingCode = 'intl';
	cItem = 'citm';
	cLine = 'clin';
	cLongDateTime = 'ldt ';
	cLongFixed = 'lfxd';
	cLongFixedPoint = 'lfpt';
	cLongFixedRectangle = 'lfrc';
	cLongInteger = 'long';
	cLongPoint = 'lpnt';
	cLongRectangle = 'lrct';
	cMachineLoc = 'mLoc';
	cMenu = 'cmnu';
	cMenuItem = 'cmen';
	cObject = 'cobj';
	cObjectSpecifier = 'obj ';
	cOpenableObject = 'coob';
	cOval = 'covl';
	cParagraph = 'cpar';
	cPICT = 'PICT';
	cPixel = 'cpxl';
	cPixelMap = 'cpix';
	cPolygon = 'cpgn';
	cProperty = 'prop';
	cQDPoint = 'QDpt';
	cQDRectangle = 'qdrt';
	cRectangle = 'crec';
	cRGBColor = 'cRGB';
	cRotation = 'trot';
	cRoundedRectangle = 'crrc';
	cRow = 'crow';
	cSelection = 'csel';
	cShortInteger = 'shor';
	cTable = 'ctbl';
	cText = 'ctxt';
	cTextFlow = 'cflo';
	cTextStyles = 'tsty';
	cType = 'type';
	cVersion = 'vers';
	cWindow = 'cwin';
	cWord = 'cwor';
	enumArrows = 'arro';
	enumJustification = 'just';
	enumKeyForm = 'kfrm';
	enumPosition = 'posi';
	enumProtection = 'prtn';
	enumQuality = 'qual';
	enumSaveOptions = 'savo';
	enumStyle = 'styl';
	enumTransferMode = 'tran';
	errAEBadKeyForm = -10002;
	errAECantHandleClass = -10010;
	errAECantSupplyType = -10009;
	errAECantUndo = -10015;
	errAEEventFailed = -10000;
	errAEIndexTooLarge = -10007;
	errAEInTransaction = -10011;
	errAELocalOnly = -10016;
	errAENoSuchTransaction = -10012;
	errAENotAnElement = -10008;
	errAENotASingleObject = -10014;
	errAENotModifiable = -10003;
	errAENoUserSelection = -10013;
	errAEPrivilegeError = -10004;
	errAEReadDenied = -10005;
	errAETypeError = -10001;
	errAEWriteDenied = -10006;
	formUniqueID = 'ID  ';
	kAEAbout = 'abou';
	kAEAfter = 'afte';
	kAEAliasSelection = 'sali';
	kAEAllCaps = 'alcp';
	kAEArrowAtEnd = 'aren';
	kAEArrowAtStart = 'arst';
	kAEArrowBothEnds = 'arbo';
	kAEAsk = 'ask ';
	kAEBefore = 'befo';
	kAEBeginning = 'bgng';
	kAEBeginsWith = 'bgwt';
	kAEBeginTransaction = 'begi';
	kAEBold = 'bold';
	kAECaseSensEquals = 'cseq';
	kAECentered = 'cent';
	kAEChangeView = 'view';
	kAEClone = 'clon';
	kAEClose = 'clos';
	kAECondensed = 'cond';
	kAEContains = 'cont';
	kAECopy = 'copy';
	kAECoreSuite = 'core';
	kAECountElements = 'cnte';
	kAECreateElement = 'crel';
	kAECreatePublisher = 'cpub';
	kAECut = 'cut ';
	kAEDelete = 'delo';
	kAEDoObjectsExist = 'doex';
	kAEDoScript = 'dosc';
	kAEDrag = 'drag';
	kAEDuplicateSelection = 'sdup';
	kAEEditGraphic = 'edit';
	kAEEmptyTrash = 'empt';
	kAEEnd = 'end ';
	kAEEndsWith = 'ends';
	kAEEndTransaction = 'endt';
	kAEEquals = '=   ';
	kAEExpanded = 'pexp';
	kAEFast = 'fast';
	kAEFinderEvents = 'FNDR';
	kAEFormulaProtect = 'fpro';
	kAEFullyJustified = 'full';
	kAEGetClassInfo = 'qobj';
	kAEGetData = 'getd';
	kAEGetDataSize = 'dsiz';
	kAEGetEventInfo = 'gtei';
	kAEGetInfoSelection = 'sinf';
	kAEGetPrivilegeSelection = 'sprv';
	kAEGetSuiteInfo = 'gtsi';
	kAEGreaterThan = '>   ';
	kAEGreaterThanEquals = '>=  ';
	kAEGrow = 'grow';
	kAEHidden = 'hidn';
	kAEHiQuality = 'hiqu';
	kAEImageGraphic = 'imgr';
	kAEInfo = 11;
	kAEIsUniform = 'isun';
	kAEItalic = 'ital';
	kAELeftJustified = 'left';
	kAELessThan = '<   ';
	kAELessThanEquals = '<=  ';
	kAELowercase = 'lowc';
	kAEMain = 0;
	kAEMakeObjectsVisible = 'mvis';
	kAEMiscStandards = 'misc';
	kAEModifiable = 'modf';
	kAEMove = 'move';
	kAENo = 'no  ';
	kAENoArrow = 'arno';
	kAENonmodifiable = 'nmod';
	kAEOpen = 'odoc';
	kAEOpenSelection = 'sope';
	kAEOutline = 'outl';
	kAEPageSetup = 'pgsu';
	kAEPaste = 'past';
	kAEPlain = 'plan';
	kAEPrint = 'pdoc';
	kAEPrintSelection = 'spri';
	kAEPrintWindow = 'pwin';
	kAEPutAwaySelection = 'sput';
	kAEQDAddOver = 'addo';
	kAEQDAddPin = 'addp';
	kAEQDAdMax = 'admx';
	kAEQDAdMin = 'admn';
	kAEQDBic = 'bic ';
	kAEQDBlend = 'blnd';
	kAEQDCopy = 'cpy ';
	kAEQDNotBic = 'nbic';
	kAEQDNotCopy = 'ncpy';
	kAEQDNotOr = 'ntor';
	kAEQDNotXor = 'nxor';
	kAEQDOr = 'or  ';
	kAEQDSubOver = 'subo';
	kAEQDSubPin = 'subp';
	kAEQDSupplementalSuite = 'qdsp';
	kAEQDXor = 'xor ';
	kAEQuickdrawSuite = 'qdrw';
	kAERedo = 'redo';
	kAERegular = 'regl';
	kAEReplace = 'rplc';
	kAERequiredSuite = 'reqd';
	kAERestart = 'rest';
	kAERevealSelection = 'srev';
	kAERevert = 'rvrt';
	kAERightJustified = 'rght';
	kAESave = 'save';
	kAESelect = 'slct';
	kAESetData = 'setd';
	kAESetPosition = 'posn';
	kAEShadow = 'shad';
	kAESharing = 13;
	kAEShowClipboard = 'shcl';
	kAEShutDown = 'shut';
	kAESleep = 'slep';
	kAESmallCaps = 'smcp';
	kAESpecialClassProperties = 'c@#!';
	kAEStrikethrough = 'strk';
	kAESubscript = 'sbsc';
	kAESuperscript = 'spsc';
	kAETableSuite = 'tbls';
	kAETextSuite = 'TEXT';
	kAETransactionTerminated = 'ttrm';
	kAEUnderline = 'undl';
	kAEUndo = 'undo';
	kAEWholeWordEquals = 'wweq';
	kAEYes = 'yes ';
	kAEZoom = 'zoom';
	kByCommentView = 6;
	kByDateView = 3;
	kByIconView = 1;
	kByKindView = 5;
	kByLabelView = 7;
	kByNameView = 2;
	kBySizeView = 4;
	kBySmallIcon = 0;
	kByVersionView = 8;
	keyAEAngle = 'kang';
	keyAEArcAngle = 'parc';
	keyAEBaseAddr = 'badd';
	keyAEBestType = 'pbst';
	keyAEBgndColor = 'kbcl';
	keyAEBgndPattern = 'kbpt';
	keyAEBounds = 'pbnd';
	keyAECellList = 'kclt';
	keyAEClassID = 'clID';
	keyAEColor = 'colr';
	keyAEColorTable = 'cltb';
	keyAECurveHeight = 'kchd';
	keyAECurveWidth = 'kcwd';
	keyAEDashStyle = 'pdst';
	keyAEData = 'data';
	keyAEDefaultType = 'deft';
	keyAEDefinitionRect = 'pdrt';
	keyAEDescType = 'dstp';
	keyAEDestination = 'dest';
	keyAEDoAntiAlias = 'anta';
	keyAEDoDithered = 'gdit';
	keyAEDoRotate = 'kdrt';
	keyAEDoScale = 'ksca';
	keyAEDoTranslate = 'ktra';
	keyAEEditionFileLoc = 'eloc';
	keyAEElements = 'elms';
	keyAEEndPoint = 'pend';
	keyAEEventClass = 'evcl';
	keyAEEventID = 'evti';
	keyAEFile = 'kfil';
	keyAEFileType = 'fltp';
	keyAEFillColor = 'flcl';
	keyAEFillPattern = 'flpt';
	keyAEFlipHorizontal = 'kfho';
	keyAEFlipVertical = 'kfvt';
	keyAEFont = 'font';
	keyAEFormula = 'pfor';
	keyAEGraphicObjects = 'gobs';
	keyAEID = 'ID  ';
	keyAEImageQuality = 'gqua';
	keyAEInsertHere = 'insh';
	keyAEKeyForms = 'keyf';
	keyAEKeyword = 'kywd';
	keyAELevel = 'levl';
	keyAELineArrow = 'arro';
	keyAEName = 'pnam';
	keyAENewElementLoc = 'pnel';
	keyAEObject = 'kobj';
	keyAEObjectClass = 'kocl';
	keyAEOffStyles = 'ofst';
	keyAEOnStyles = 'onst';
	keyAEParameters = 'prms';
	keyAEParamFlags = 'pmfg';
	keyAEPenColor = 'ppcl';
	keyAEPenPattern = 'pppa';
	keyAEPenWidth = 'ppwd';
	keyAEPixelDepth = 'pdpt';
	keyAEPixMapMinus = 'kpmm';
	keyAEPMTable = 'kpmt';
	keyAEPointList = 'ptlt';
	keyAEPointSize = 'ptsz';
	keyAEPosition = 'kpos';
	keyAEPropData = 'prdt';
	keyAEProperties = 'qpro';
	keyAEProperty = 'kprp';
	keyAEPropFlags = 'prfg';
	keyAEPropID = 'prop';
	keyAEProtection = 'ppro';
	keyAERenderAs = 'kren';
	keyAERequestedType = 'rtyp';
	keyAEResult = '----';
	keyAEResultInfo = 'rsin';
	keyAERotation = 'prot';
	keyAERotPoint = 'krtp';
	keyAERowList = 'krls';
	keyAESaveOptions = 'savo';
	keyAEScale = 'pscl';
	keyAEScriptTag = 'psct';
	keyAEShowWhere = 'show';
	keyAEStartAngle = 'pang';
	keyAEStartPoint = 'pstp';
	keyAEStyles = 'ksty';
	keyAESuiteID = 'suit';
	keyAEText = 'ktxt';
	keyAETextColor = 'ptxc';
	keyAETextFont = 'ptxf';
	keyAETextPointSize = 'ptps';
	keyAETextStyles = 'txst';
	keyAETheText = 'thtx';
	keyAETransferMode = 'pptm';
	keyAETranslation = 'ptrs';
	keyAETryAsStructGraf = 'toog';
	keyAEUniformStyles = 'ustl';
	keyAEUpdateOn = 'pupd';
	keyAEUserTerm = 'utrm';
	keyAEWindow = 'wndw';
	keyAEWritingCode = 'wrcd';
	keyMiscellaneous = 'fmsc';
	keySelection = 'fsel';
	keyWindow = 'kwnd';
	pArcAngle = 'parc';
	pBackgroundColor = 'pbcl';
	pBackgroundPattern = 'pbpt';
	pBestType = 'pbst';
	pBounds = 'pbnd';
	pClass = 'pcls';
	pClipboard = 'pcli';
	pColor = 'colr';
	pColorTable = 'cltb';
	pContents = 'pcnt';
	pCornerCurveHeight = 'pchd';
	pCornerCurveWidth = 'pcwd';
	pDashStyle = 'pdst';
	pDefaultType = 'deft';
	pDefinitionRect = 'pdrt';
	pEnabled = 'enbl';
	pEndPoint = 'pend';
	pFillColor = 'flcl';
	pFillPattern = 'flpt';
	pFont = 'font';
	pFormula = 'pfor';
	pGraphicObjects = 'gobs';
	pHasCloseBox = 'hclb';
	pHasTitleBar = 'ptit';
	pID = 'ID  ';
	pIndex = 'pidx';
	pInsertionLoc = 'pins';
	pIsFloating = 'isfl';
	pIsFrontProcess = 'pisf';
	pIsModal = 'pmod';
	pIsModified = 'imod';
	pIsResizable = 'prsz';
	pIsStationeryPad = 'pspd';
	pIsZoomable = 'iszm';
	pIsZoomed = 'pzum';
	pItemNumber = 'itmn';
	pJustification = 'pjst';
	pLineArrow = 'arro';
	pMenuID = 'mnid';
	pName = 'pnam';
	pNewElementLoc = 'pnel';
	pPenColor = 'ppcl';
	pPenPattern = 'pppa';
	pPenWidth = 'ppwd';
	pPixelDepth = 'pdpt';
	pPointList = 'ptlt';
	pPointSize = 'ptsz';
	pProtection = 'ppro';
	pRotation = 'prot';
	pScale = 'pscl';
	pScript = 'scpt';
	pScriptTag = 'psct';
	pSelected = 'selc';
	pSelection = 'sele';
	pStartAngle = 'pang';
	pStartPoint = 'pstp';
	pTextColor = 'ptxc';
	pTextFont = 'ptxf';
	pTextItemDelimiters = 'txdl';
	pTextPointSize = 'ptps';
	pTextStyles = 'txst';
	pTransferMode = 'pptm';
	pTranslation = 'ptrs';
	pUniformStyles = 'ustl';
	pUpdateOn = 'pupd';
	pUserSelection = 'pusl';
	pVersion = 'vers';
	pVisible = 'pvis';
	typeAEText = 'tTXT';
	typeArc = 'carc';
	typeBest = 'best';
	typeCell = 'ccel';
	typeClassInfo = 'gcli';
	typeColorTable = 'clrt';
	typeColumn = 'ccol';
	typeDashStyle = 'tdas';
	typeData = 'tdta';
	typeDrawingArea = 'cdrw';
	typeElemInfo = 'elin';
	typeEnumeration = 'enum';
	typeEPS = 'EPS ';
	typeEventInfo = 'evin';
	typeFinderWindow = 'fwin';
	typeFixed = 'fixd';
	typeFixedPoint = 'fpnt';
	typeFixedRectangle = 'frct';
	typeGraphicLine = 'glin';
	typeGraphicText = 'cgtx';
	typeGroupedGraphic = 'cpic';
	typeInsertionLoc = 'insl';
	typeIntlText = 'itxt';
	typeIntlWritingCode = 'intl';
	typeLongDateTime = 'ldt ';
	typeLongFixed = 'lfxd';
	typeLongFixedPoint = 'lfpt';
	typeLongFixedRectangle = 'lfrc';
	typeLongPoint = 'lpnt';
	typeLongRectangle = 'lrct';
	typeMachineLoc = 'mLoc';
	typeOval = 'covl';
	typeParamInfo = 'pmin';
	typePict = 'PICT';
	typePixelMap = 'cpix';
	typePixMapMinus = 'tpmm';
	typePolygon = 'cpgn';
	typePropInfo = 'pinf';
	typeQDPoint = 'QDpt';
	typeQDRectangle = 'qdrt';
	typeRectangle = 'crec';
	typeRGB16 = 'tr16';
	typeRGB96 = 'tr96';
	typeRGBColor = 'cRGB';
	typeRotation = 'trot';
	typeRoundedRectangle = 'crrc';
	typeRow = 'crow';
	typeScrapStyles = 'styl';
	typeScript = 'scpt';
	typeStyledText = 'STXT';
	typeSuiteInfo = 'suin';
	typeTable = 'ctbl';
	typeTextStyles = 'tsty';
	typeTIFF = 'TIFF';
	typeVersion = 'vers';
	zoomIn = 7;
	zoomOut = 8;

TYPE
WritingCode = RECORD
	theScriptCode	: ScriptCode;
	theLangCode		: LangCode;
	END;

IntlText	= RECORD
	theScriptCode	: ScriptCode;
	theLangCode		: LangCode;
	theText			: PACKED ARRAY [0..0] OF CHAR;
	{ variable length data }
	END;

{$ENDC}    { UsingAERegistry }

{$IFC NOT UsingIncludes}
	END.
{$ENDC}
