home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / devices / keymap.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  1.3 KB  |  62 lines
  1. {$if not def DEVICES_KEYMAP_H} CONST DEVICES_KEYMAP_H=0;
  2.  
  3. { ******************************************************************
  4.   ** KickPascal-Include-Datei "devices/keymap.h" zu Kickstart 3.0 **
  5.   ****************************************************************** }
  6.  
  7. TYPE p_KeyMap = ^KeyMap;
  8. TYPE p_KeyMapNode = ^KeyMapNode;
  9. TYPE p_KeyMapResource = ^KeyMapResource;
  10.  
  11. {$if not def EXEC_NODES_H;incl "exec/nodes.h";endif}
  12. {$if not def EXEC_LISTS_H;incl "exec/lists.h";endif}
  13.  
  14. TYPE KeyMap = RECORD
  15.  km_LoKeyMapTypes : Ptr;
  16.  km_LoKeyMap      : Ptr;
  17.  km_LoCapsable    : Ptr;
  18.  km_LoRepeatable  : Ptr;
  19.  km_HiKeyMapTypes : Ptr;
  20.  km_HiKeyMap      : Ptr;
  21.  km_HiCapsable    : Ptr;
  22.  km_HiRepeatable  : Ptr;
  23. END;
  24.  
  25. TYPE KeyMapNode = RECORD
  26.  kn_Node   : Node;
  27.  kn_KeyMap : KeyMap;
  28. END;
  29.  
  30. TYPE KeyMapResource = RECORD
  31.  kr_Node : Node;
  32.  kr_List : List;
  33. END;
  34.  
  35. CONST
  36.  KC_NOQUAL   = 0;
  37.  KC_VANILLA  = 7;
  38.  KCB_SHIFT   = 0;
  39.  KCF_SHIFT   = $01;
  40.  KCB_ALT     = 1;
  41.  KCF_ALT     = $02;
  42.  KCB_CONTROL = 2;
  43.  KCF_CONTROL = $04;
  44.  KCB_DOWNUP  = 3;
  45.  KCF_DOWNUP  = $08;
  46.  KCB_DEAD    = 5;
  47.  KCF_DEAD    = $20;
  48.  KCB_STRING  = 6;
  49.  KCF_STRING  = $40;
  50.  KCB_NOP     = 7;
  51.  KCF_NOP     = $80;
  52.  
  53. CONST
  54.  DPB_MOD        = 0;
  55.  DPF_MOD        = $01;
  56.  DPB_DEAD       = 3;
  57.  DPF_DEAD       = $08;
  58.  DP_2DINDEXMASK = $0f;
  59.  DP_2DFACSHIFT  = 4;
  60.  
  61. {$endif}
  62.