home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / Keyboard.def < prev    next >
Encoding:
Text File  |  1994-05-25  |  916 b   |  31 lines
  1. |##########|
  2. |#MAGIC   #|CLABLMAL
  3. |#PROJECT #|"IMPORTALL"
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx-x-x--x-----x-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x-xx-x----------
  9. |##########|
  10. DEFINITION MODULE Keyboard;
  11. (* $A- *)
  12. FROM T_Exec     IMPORT IOCommand, nonstdVAL, IOStdReqPtr;
  13. FROM Resources  IMPORT ContextPtr;
  14.  
  15. CONST
  16.   readEvent        = IOCommand( nonstdVAL + 0 );
  17.   readMatrix       = IOCommand( nonstdVAL + 1 );
  18.   addResetHandler  = IOCommand( nonstdVAL + 2 );
  19.   remResetHandler  = IOCommand( nonstdVAL + 3 );
  20.   resetHandlerDone = IOCommand( nonstdVAL + 4 );
  21.  
  22. PROCEDURE OpenKeyboard(context : ContextPtr:=NIL):IOStdReqPtr;
  23.  
  24. PROCEDURE CloseKeyboard(VAR request : IOStdReqPtr);
  25.  
  26. GROUP
  27.   All  = readEvent,readMatrix,addResetHandler,remResetHandler,
  28.          resetHandlerDone,OpenKeyboard,CloseKeyboard,T_Exec.ExecIOGrp;
  29.  
  30. END Keyboard.
  31.