home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / MODULAV2GERMAN.DMS / in.adf / Def.zoo / InputEvent.def < prev    next >
Encoding:
Modula Definition  |  1988-11-06  |  1.2 KB  |  63 lines
  1. (*$M-*)
  2. DEFINITION MODULE InputEvent;
  3.  
  4. FROM SYSTEM IMPORT
  5.  ADDRESS;
  6. FROM Timer IMPORT
  7.  TimeVal;
  8.  
  9. TYPE
  10.  Class=(
  11.   null,rawkey,rawmouse,event,pointerpos,cl5,timer,gadgetdown,
  12.   gadgetup,requester,menulist,closewindow,sizewindow,
  13.   refreshwindow,newprefs,diskremoved,diskinserted,
  14.   activewindow,inactivewindow
  15.  );
  16.  
  17. CONST
  18.  classMax=ORD(MAX(Class));
  19.  upPrefix=080H;
  20.  keyCodeFirst=00H;
  21.  keyCodeLast=077H;
  22.  commCodeFirst=078H;
  23.  commCodeLast=07FH;
  24.  c0First=00H;
  25.  c0Last=01FH;
  26.  asciiFirst=020H;
  27.  asciiLast=07EH;
  28.  asciiDel=07FH;
  29.  c1First=080H;
  30.  c1Last=09FH;
  31.  latin1First=0A0H;
  32.  latin1Last=0FFH;
  33.  lButton=068H;
  34.  rButton=069H;
  35.  mButton=06AH;
  36.  noButton=0FFH;
  37.  newActive=01H;
  38.  reqClear=00H;
  39.  reqSet=01H;
  40.  
  41. TYPE
  42.  Qualifiers=(
  43.   lShift,rShift,capsLock,control,lAlt,rAlt,lCommand,rCommand,
  44.   numericPad,repeat,interrupt,multiBroadcast,midButton,
  45.   rightButton,leftButton,relativeMouse
  46.  );
  47.  QualifierSet=SET OF Qualifiers;
  48.  InputEventPtr=POINTER TO InputEvent;
  49.  InputEvent=RECORD
  50.   nextEvent:InputEventPtr;
  51.   class:Class;
  52.   subClass:Class;
  53.   code:CARDINAL;
  54.   qualifier:QualifierSet;
  55.   CASE :INTEGER OF
  56.   |0: x,y:INTEGER;
  57.   |1: eventAddress:ADDRESS
  58.   END;
  59.   timeStamp:TimeVal
  60.  END;
  61.  
  62. END InputEvent.
  63.