home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-2.DMS / in.adf / Units / Clipboard.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-20  |  706 b   |  48 lines
  1. unit Clipboard;
  2.  
  3. INTERFACE
  4. uses Exec;
  5.  
  6.  
  7. type
  8.     pSatisfyMsg = ^tSatisfyMsg;
  9.     tSatisfyMsg = record
  10.         sm_Msg: tMessage;
  11.         sm_Unit: word;
  12.         sm_ClipID: longint;
  13.         end;
  14.  
  15.     pClipboardUnitPartial = ^tClipboardUnitPartial;
  16.     tClipboardUnitPartial = record
  17.         cu_Node: tNode;
  18.         cu_UnitNum: long;
  19.         end;
  20.  
  21.     pIOClipReq = ^tIOClipReq;
  22.     tIOClipReq = record
  23.         io_Message: tMessage;
  24.         io_Device: pDevice;
  25.         io_Unit: pUnit;
  26.         io_Command: word;
  27.         io_Flags: byte;
  28.         io_Error: shortint;
  29.         io_Actual: long;
  30.         io_Length: long;
  31.         io_Data: STRPTR;
  32.         io_Offset: long;
  33.         io_ClipID: longint;
  34.         end;
  35.  
  36.  
  37.  
  38. const
  39.     CBD_POST = 9;
  40.     PRIMARY_CLIP = 0;
  41.     CBD_CURRENTREADID = $A;
  42.     CBD_CURRENTWRITEID = $B;
  43.     CBERR_OBSOLETEID = 1;
  44.  
  45.  
  46. IMPLEMENTATION
  47. end.
  48.