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 >
Wrap
Text File
|
1994-05-25
|
916b
|
31 lines
|##########|
|#MAGIC #|CLABLMAL
|#PROJECT #|"IMPORTALL"
|#PATHS #|"StdProject"
|#FLAGS #|xx-x-x--x-----x-----------------
|#USERSW #|--------------------------------
|#USERMASK#|--------------------------------
|#SWITCHES#|x-xx-x----------
|##########|
DEFINITION MODULE Keyboard;
(* $A- *)
FROM T_Exec IMPORT IOCommand, nonstdVAL, IOStdReqPtr;
FROM Resources IMPORT ContextPtr;
CONST
readEvent = IOCommand( nonstdVAL + 0 );
readMatrix = IOCommand( nonstdVAL + 1 );
addResetHandler = IOCommand( nonstdVAL + 2 );
remResetHandler = IOCommand( nonstdVAL + 3 );
resetHandlerDone = IOCommand( nonstdVAL + 4 );
PROCEDURE OpenKeyboard(context : ContextPtr:=NIL):IOStdReqPtr;
PROCEDURE CloseKeyboard(VAR request : IOStdReqPtr);
GROUP
All = readEvent,readMatrix,addResetHandler,remResetHandler,
resetHandlerDone,OpenKeyboard,CloseKeyboard,T_Exec.ExecIOGrp;
END Keyboard.