home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 August / macformat-027.iso / mac / Shareware City / Developers / Oberon⁄F / Mac / Mod / ScrapMgr (.txt) < prev    next >
Encoding:
Oberon Document  |  1994-06-07  |  2.2 KB  |  54 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. StdStamps.StdViewDesc
  18. Geneva
  19. MODULE MacScrapMgr;
  20. (* cp 
  21.     IMPORT SYSTEM, MacTypes;
  22.     CONST CODE = 1;
  23.     TYPE
  24.         ScrapStuff* = RECORD (MacTypes.Data)
  25.             scrapSize*: LONGINT;
  26.             scrapHandle*: MacTypes.Handle;
  27.             scrapCount*: INTEGER;
  28.             scrapState*: INTEGER;
  29.             scrapName*: MacTypes.Str255
  30.         END;
  31.         PScrapStuff* = POINTER TO ScrapStuff;
  32.     (** Getting Desk Scrap Information **)
  33.     PROCEDURE [CODE] InfoScrap* (): PScrapStuff 0A9H, 0F9H;
  34.     (** Keeping the Desk Scrap on the Disk **)
  35.     PROCEDURE [CODE] UnloadScrap* (): LONGINT 0A9H, 0FAH;
  36.     PROCEDURE [CODE] LoadScrap* (): LONGINT 0A9H, 0FBH;
  37.     (** Writing on the Desk Scrap **)
  38.     PROCEDURE [CODE] ZeroScrap* (): LONGINT 0A9H, 0FCH;
  39.     PROCEDURE [CODE] PutScrap* (length: LONGINT; theType: MacTypes.ResType; source: MacTypes.Ptr): LONGINT 0A9H, 0FEH;
  40.     (** Reading from the Desk Scrap **)
  41.     PROCEDURE [CODE] GetScrap* (hDest: MacTypes.Handle; theType: MacTypes.ResType; VAR offset: LONGINT): LONGINT 0A9H, 0FDH;
  42. END MacScrapMgr.
  43. TextControllers.StdCtrlDesc
  44. TextControllers.ControllerDesc
  45. Containers.ControllerDesc
  46. Controllers.ControllerDesc
  47. TextRulers.StdRulerDesc
  48. TextRulers.RulerDesc
  49. TextRulers.StdStyleDesc
  50. TextRulers.StyleDesc
  51. TextRulers.AttributesDesc
  52. Geneva
  53. Documents.ControllerDesc
  54.