home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 August / macformat-027.iso / mac / Shareware City / Developers / Oberon⁄F / Mac / Mod / GDevices (.txt) < prev    next >
Encoding:
Oberon Document  |  1994-06-07  |  4.6 KB  |  106 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. Geneva
  18. MODULE MacGDevices;
  19.     IMPORT SYSTEM, MacTypes, MacCQuickDraw;
  20.     CONST CODE = 1; NOSTKCHK = 4;
  21.     TYPE
  22.         GDHandle* = MacTypes.Handle;
  23.         GWorldPtr* = MacCQuickDraw.CGrafPtr;
  24.     PROCEDURE [CODE] newGWorld (VAR offscreenGWorld: GWorldPtr; pixelDepth: INTEGER;
  25.                         boundRect: MacTypes.Rect; cTable: LONGINT; aGDevice: GDHandle;
  26.                         flags: SET): INTEGER    0ABH, 01DH;
  27.     PROCEDURE [CODE] updateGWorld (VAR offscreenGWorld: GWorldPtr; pixelDepth: INTEGER;
  28.                         boundRect: MacTypes.Rect; cTable: LONGINT; aGDevice: GDHandle;
  29.                         flags: SET): SET    0ABH, 01DH;
  30.     PROCEDURE [CODE] setGWorld (port: MacCQuickDraw.CGrafPtr; gdh: GDHandle)    0ABH, 01DH;
  31.     PROCEDURE [CODE] getGWorld (VAR port: MacCQuickDraw.CGrafPtr; VAR gdh: GDHandle)    0ABH, 01DH;
  32.     PROCEDURE [CODE] disposeGWorld (offscreenGWorld: GWorldPtr)    0ABH, 01DH;
  33.     PROCEDURE [NOSTKCHK] NewGWorld* (VAR offscreenGWorld: GWorldPtr; pixelDepth: INTEGER;
  34.                         boundRect: MacTypes.Rect; cTable: LONGINT; aGDevice: GDHandle;
  35.                         flags: SET): INTEGER;
  36.     BEGIN
  37.         SYSTEM.PUTREG(0, 00160000H);
  38.         RETURN newGWorld(offscreenGWorld, pixelDepth, boundRect, cTable, aGDevice, flags)
  39.     END NewGWorld;
  40.     PROCEDURE [NOSTKCHK] UpdateGWorld* (VAR offscreenGWorld: GWorldPtr; pixelDepth: INTEGER;
  41.                         boundRect: MacTypes.Rect; cTable: LONGINT; aGDevice: GDHandle;
  42.                         flags: SET): SET;
  43.     BEGIN
  44.         SYSTEM.PUTREG(0, 00160003H);
  45.         RETURN updateGWorld(offscreenGWorld, pixelDepth, boundRect, cTable, aGDevice, flags)
  46.     END UpdateGWorld;
  47.     PROCEDURE [NOSTKCHK] SetGWorld* (port: MacCQuickDraw.CGrafPtr; gdh: GDHandle);
  48.     BEGIN
  49.         SYSTEM.PUTREG(0, 00080006H);
  50.         setGWorld(port, gdh)
  51.     END SetGWorld;
  52.     PROCEDURE [NOSTKCHK] GetGWorld* (VAR port: MacCQuickDraw.CGrafPtr; VAR gdh: GDHandle);
  53.     BEGIN
  54.         SYSTEM.PUTREG(0, 00080005H);
  55.         getGWorld(port, gdh)
  56.     END GetGWorld;
  57.     PROCEDURE [NOSTKCHK] DisposeGWorld* (offscreenGWorld: GWorldPtr);
  58.     BEGIN
  59.         SYSTEM.PUTREG(0, 00040004H);
  60.         disposeGWorld(offscreenGWorld)
  61.     END DisposeGWorld;
  62.     PROCEDURE [CODE] SetGDevice*(gdh: GDHandle) 0AAH, 31H;
  63.     PROCEDURE [CODE] GetGDevice*(): GDHandle 0AAH, 32H;
  64.     PROCEDURE [CODE] newScreenBuffer (globalRect: MacTypes.Rect; purgeable: BOOLEAN;
  65.                                 VAR gdh: GDHandle;
  66.                                 VAR offscreenPixMap: MacCQuickDraw.PixMapHandle): INTEGER
  67. 0ABH, 01DH;
  68.     PROCEDURE [CODE] disposeScreenBuffer (offscreenPixMap: MacCQuickDraw.PixMapHandle) 
  69. 0ABH, 01DH;
  70.     PROCEDURE [CODE] lockPixels (pm: MacCQuickDraw.PixMapHandle): BOOLEAN 0ABH, 01DH;
  71.     PROCEDURE [CODE] unlockPixels (pm: MacCQuickDraw.PixMapHandle) 0ABH, 01DH;
  72.     PROCEDURE [NOSTKCHK] NewScreenBuffer* (globalRect: MacTypes.Rect; purgeable: BOOLEAN;
  73.                                 VAR gdh: GDHandle;
  74.                                 VAR offscreenPixMap: MacCQuickDraw.PixMapHandle): INTEGER;
  75.     BEGIN
  76.         SYSTEM.PUTREG(0, 000E0010H);
  77.         RETURN newScreenBuffer(globalRect, purgeable, gdh, offscreenPixMap)
  78.     END NewScreenBuffer;
  79.     PROCEDURE [NOSTKCHK] DisposeScreenBuffer* (offscreenPixMap: MacCQuickDraw.PixMapHandle);
  80.     BEGIN
  81.         SYSTEM.PUTREG(0, 00040011H);
  82.         disposeScreenBuffer(offscreenPixMap)
  83.     END DisposeScreenBuffer;
  84.     PROCEDURE [NOSTKCHK] LockPixels* (pm: MacCQuickDraw.PixMapHandle): BOOLEAN;
  85.     BEGIN
  86.         SYSTEM.PUTREG(0, 00040001H);
  87.         RETURN lockPixels(pm);
  88.     END LockPixels;
  89.     PROCEDURE [NOSTKCHK] UnlockPixels* (pm: MacCQuickDraw.PixMapHandle);
  90.     BEGIN
  91.         SYSTEM.PUTREG(0, 00040002H);
  92.         unlockPixels(pm);
  93.     END UnlockPixels;
  94. END MacGDevices.
  95. TextControllers.StdCtrlDesc
  96. TextControllers.ControllerDesc
  97. Containers.ControllerDesc
  98. Controllers.ControllerDesc
  99. TextRulers.StdRulerDesc
  100. TextRulers.RulerDesc
  101. TextRulers.StdStyleDesc
  102. TextRulers.StyleDesc
  103. TextRulers.AttributesDesc
  104. Geneva
  105. Documents.ControllerDesc
  106.