home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D3.DMS / in.adf / Interfaces / KeyMapLib.mod < prev    next >
Encoding:
Text File  |  1992-11-02  |  1.7 KB  |  46 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                                                                         *)
  3. (*  Amiga Oberon Interface Module:                    Date: 02-Nov-92      *)
  4. (*                                                                         *)
  5. (*   © 1992 by Fridtjof Siebert                                            *)
  6. (*                                                                         *)
  7. (*-------------------------------------------------------------------------*)
  8.  
  9. MODULE KeyMapLib;
  10.  
  11. IMPORT e  * := Exec,
  12.        ie * := InputEvent,
  13.        km * := KeyMap;
  14.  
  15. CONST
  16.   keyMapName * = "keymap.library";
  17.  
  18. VAR
  19.  
  20.   base * : e.LibraryPtr;  (* check base#NIL before you use any function! *)
  21.  
  22. (* ---   functions in V36 or higher  (distributed as Release 2.0)   --- *)
  23. (* --- REMEMBER: You are to check the version BEFORE you use this ! --- *)
  24.  
  25. PROCEDURE SetKeyMapDefault*{base,-30}(keyMap{8}     : km.KeyMapPtr);
  26. PROCEDURE AskKeyMapDefault*{base,-36}(): km.KeyMapPtr;
  27. PROCEDURE MapRawKey       *{base,-42}(event{8}      : ie.InputEventPtr;
  28.                                       VAR buffer{9} : ARRAY OF CHAR;
  29.                                       length{1}     : LONGINT;
  30.                                       keyMap{10}    : km.KeyMapPtr): INTEGER;
  31. PROCEDURE MapANSI         *{base,-48}(string{8}     : ARRAY OF CHAR;
  32.                                       count{0}      : LONGINT;
  33.                                       VAR buffer{9} : ARRAY OF CHAR;
  34.                                       length{1}     : LONGINT;
  35.                                       keyMap{10}    : km.KeyMapPtr): LONGINT;
  36.  
  37.  
  38. BEGIN
  39.   base :=  e.OpenLibrary(keyMapName,37);
  40. CLOSE
  41.   IF base#NIL THEN e.CloseLibrary(base) END;
  42. END KeyMapLib.
  43.  
  44.  
  45.  
  46.