home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 August / macformat-027.iso / mac / Shareware City / Developers / Oberon⁄F / Mac / Mod / GestaltMgr (.txt) < prev    next >
Encoding:
Oberon Document  |  1994-06-07  |  1.5 KB  |  43 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Geneva
  16. Geneva
  17. MODULE MacGestaltMgr;
  18. IMPORT SYSTEM, MacTypes;
  19.     CONST
  20.         CODE = 1; NOSTKCHK = 4;
  21.         SystemVersion* = 73797376H; (* 'sysv' *)
  22.     PROCEDURE [CODE] gestalt 0A1H, 0ADH;
  23.     PROCEDURE [NOSTKCHK] Gestalt* (selector: MacTypes.OSType; VAR response: LONGINT): MacTypes.OSErr;
  24.     VAR res: MacTypes.OSErr;
  25.     BEGIN
  26.         SYSTEM.PUTREG(0, selector);
  27.         gestalt;
  28.         SYSTEM.GETREG(8, response); SYSTEM.GETREG(0, res);
  29.         RETURN res;
  30.     END Gestalt;
  31. END MacGestaltMgr.
  32. TextControllers.StdCtrlDesc
  33. TextControllers.ControllerDesc
  34. Containers.ControllerDesc
  35. Controllers.ControllerDesc
  36. TextRulers.StdRulerDesc
  37. TextRulers.RulerDesc
  38. TextRulers.StdStyleDesc
  39. TextRulers.StyleDesc
  40. TextRulers.AttributesDesc
  41. Geneva
  42. Documents.ControllerDesc
  43.