home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacOberonLite 1.0.1 / Sys Files / MacIAC.Mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1993-06-07  |  2.5 KB  |  49 lines  |  [.Ob./.Ob4]
  1. Syntax10.Scn.Fnt
  2. Syntax10b.Scn.Fnt
  3. MODULE MacIAC;
  4. (* This Module contains all essentiel constants, datatypes and routines from the NEW Inside Macintosh
  5.             Interapplication Communication
  6.     However this implementation is NOT complete. If use miss some items, please use Inside Mac
  7.     and complete this module for your needs.
  8.     See the documentation ( MakeMacApp.Doc ) for more information about the usage of this module.  *)
  9. IMPORT SYSTEM,ME:=MacMemory,TB:=MacToolbox;
  10. CONST
  11. (* Apple Event Manager , only core routines for standard events*)
  12.     kCoreEventClass* = 61657674H;    (* aevt *)
  13.     kAEOpenApplication* =  6F617070H;     (* oapp *)
  14.     kAEOpenDocuments* = 6F646F63H;    (* odoc *)
  15.     kAEPrintDocuments* = 70646F63H;    (* pdoc *)
  16.     kAEQuitApplication* = 71756974H;    (* quit *)
  17.     typeAEList* = 6C697374H;    (* list *)
  18.     typeWildCard* = 2A2A2A2AH;    (* **** *)
  19.     typeFSS* = 66737320H;    (* fss  *)
  20.     keyMissedKeywordAttr* = 6D697373H;    (* miss *)
  21.     keyDirectObject* = 2D2D2D2DH;    (* ----    *)
  22.     errAEParamMissed* = -1715;
  23. (* Apple Event Manager , only core routines for standard events*)
  24.     AEKeyword* = LONGINT;
  25.     DescType* = LONGINT;
  26.     AEDesc*= RECORD
  27.         descriptorType*: DescType;
  28.         dataHandle*: ME.Handle
  29.     END;
  30.     AEDescList*= AEDesc;
  31.     AppleEvent*= AEDescList;
  32. (* Apple Event Manager , only core routines for standard events*)
  33.     PROCEDURE- AEInstallEventHandler*(theAEEventClass: LONGINT;theAEEventID: LONGINT;
  34.         handler: PROCEDURE(theAppleEvent,reply : AppleEvent;handelRefcon: LONGINT) :INTEGER;
  35.         handlerRefcon: LONGINT;isSysHandler: BOOLEAN): INTEGER    030H,03CH,009H,01FH,0A8H,016H;
  36.     PROCEDURE- AEGetAttributePtr*(theAppleEvent: AppleEvent;
  37.         theAEKeyword: AEKeyword;desiredType: DescType;VAR typeCode: DescType;dataPtr: LONGINT;maximumSize: LONGINT;
  38.         VAR actualSize: LONGINT): INTEGER    030H,03CH,00EH,015H,0A8H,016H;
  39.     PROCEDURE- AEProcessAppleEvent*(theEventRecord: TB.EventRecord): INTEGER    030H,03CH,002H,01BH,0A8H,016H;
  40.     PROCEDURE- AEGetParamDesc*(theAppleEvent: AppleEvent;theAEKeyword: AEKeyword;desiredType: DescType;
  41.         VAR result: AEDesc): INTEGER    030H,03CH,008H,012H,0A8H,016H;
  42.     PROCEDURE- AECountItems*(theAEDescList: AEDescList;
  43.         VAR theCount: LONGINT): INTEGER    030H,03CH,004H,007H,0A8H,016H;
  44.     PROCEDURE- AEGetNthPtr*(theAEDescList: AEDescList;index: LONGINT; desiredType: DescType;
  45.         VAR theAEKeyword: AEKeyword;VAR typeCode: DescType;dataPtr: LONGINT;
  46.         maximumSize: LONGINT;VAR actualSize: LONGINT): INTEGER    030H,03CH,010H,00AH,0A8H,016H;
  47.     PROCEDURE- AEDisposeDesc*(VAR theAEDesc: AEDesc): INTEGER    030H,03CH,002H,004H,0A8H,016H;
  48. END MacIAC.
  49.