home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / Clipboard.def < prev    next >
Text File  |  1994-05-25  |  2KB  |  68 lines
  1. |##########|
  2. |#MAGIC   #|CLABLMDD
  3. |#PROJECT #|"IMPORTALL"
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx-x-x--x---x-x-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x-xx-x----------
  9. |##########|
  10. DEFINITION MODULE Clipboard;
  11. (* $A- *)
  12.  
  13. FROM T_Exec     IMPORT nonstdVAL,NoFreeSignal,OpenError,
  14.                        Node,Message,IOStdReq,DevicePtr,IOFlagSet,
  15.                        IOCommand,IOReturn,UnitPtr;
  16. FROM Resources  IMPORT ContextPtr;
  17.  
  18. CONST
  19.   primaryClip = 0;
  20.  
  21.   post            = IOCommand( nonstdVAL + 0 );
  22.   currentReadId   = IOCommand( nonstdVAL + 1 );
  23.   currentWrite    = IOCommand( nonstdVAL + 2 );
  24.   changeHook      = IOCommand( nonstdVAL + 3 );
  25.  
  26.   obsoleteId      = IOReturn( 1 );
  27.  
  28. TYPE
  29.   ClipboardUnitPartialPtr = POINTER TO ClipboardUnitPartial;
  30.   ClipboardUnitPartial    = RECORD OF Node
  31.                               unitNum : LONGCARD
  32.                             END;
  33.  
  34.   IOClipboardPtr          = POINTER TO IOClipboard;
  35.   IOClipboard             = RECORD OF IOStdReq
  36.                               clipID : LONGINT;
  37.                             END;
  38.  
  39.   SatisfyMsgPtr           =  POINTER TO SatisfyMsg;
  40.   SatisfyMsg              =  RECORD OF Message
  41.                                unit   : CARDINAL;
  42.                                clipID : LONGINT;
  43.                              END;
  44.  
  45.   ClipHookMsgPtr          = POINTER TO ClipHookMsg;
  46.   ClipHookMsg             = RECORD
  47.                               type      : LONGCARD;
  48.                               changeCmd : LONGINT;
  49.                               clipID    : LONGCARD;
  50.                             END;
  51.  
  52. PROCEDURE OpenClipboard( unit    : CARDINAL  := primaryClip;
  53.                          context : ContextPtr:=NIL): IOClipboardPtr;
  54.  
  55. PROCEDURE CloseClipboard( VAR request : IOClipboardPtr );
  56.  
  57. GROUP
  58.   All     = post,                     currentReadId,
  59.             currentWrite,             obsoleteId,
  60.             ClipboardUnitPartial,     ClipboardUnitPartialPtr,
  61.             IOClipboard,              IOClipboardPtr,
  62.             primaryClip,              SatisfyMsg,
  63.             SatisfyMsgPtr,
  64.             OpenClipboard,            CloseClipboard,
  65.             T_Exec.ExecIOGrp;
  66.  
  67. END Clipboard.
  68.