home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / devices / clipboard.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  1.4 KB  |  60 lines
  1. {$if not def DEVICES_CLIPBOARD_H} CONST DEVICES_CLIPBOARD_H=0;
  2.  
  3. { *********************************************************************
  4.   ** KickPascal-Include-Datei "devices/clipboard.h" zu Kickstart 3.0 **
  5.   ********************************************************************* }
  6.  
  7. TYPE p_ClipboardUnitPartial = ^ClipboardUnitPartial;
  8. TYPE p_IOClipReq = ^IOClipReq;
  9. TYPE p_SatisfyMsg = ^SatisfyMsg;
  10. TYPE p_ClipHookMsg = ^ClipHookMsg;
  11.  
  12. {$if not def EXEC_NODES_H;incl "exec/nodes.h";endif}
  13. {$if not def EXEC_LISTS_H;incl "exec/lists.h";endif}
  14. {$if not def EXEC_PORTS_H;incl "exec/ports.h";endif}
  15. {$if not def EXEC_IO_H;incl "exec/io.h";endif}  { ergänzt }
  16.  
  17. CONST
  18.  CBD_POST           = (CMD_NONSTD+0);
  19.  CBD_CURRENTREADID  = (CMD_NONSTD+1);
  20.  CBD_CURRENTWRITEID = (CMD_NONSTD+2);
  21.  CBD_CHANGEHOOK     = (CMD_NONSTD+3);
  22.  
  23.  CBERR_OBSOLETEID   = 1;
  24.  
  25.  
  26. TYPE ClipboardUnitPartial = RECORD
  27.  cu_Node    : Node;
  28.  cu_UnitNum : Long;
  29. END;
  30.  
  31. TYPE IOClipReq = RECORD
  32.  io_Message : Message;
  33.  io_Device  : p_Device;
  34.  io_Unit    : p_ClipboardUnitPartial;
  35.  io_Command : Word;
  36.  io_Flags   : Byte;
  37.  io_Error   : Short;
  38.  io_Actual  : Long;
  39.  io_Length  : Long;
  40.  io_Data    : Str;
  41.  io_Offset  : Long;
  42.  io_ClipID  : LongInt;
  43. END;
  44.  
  45. CONST PRIMARY_CLIP = 0;
  46.  
  47. TYPE SatisfyMsg = RECORD
  48.  sm_Msg    : Message;
  49.  sm_Unit   : Word;
  50.  sm_ClipID : LongInt;
  51. END;
  52.  
  53. TYPE ClipHookMsg = RECORD
  54.  chm_Type      : Long;
  55.  chm_ChangeCmd : LongInt;
  56.  chm_ClipID    : LongInt;
  57. END;
  58.  
  59. {$endif}
  60.