-- Mouse.TIP; created by System
-- Version of 24-Feb-83 16:45:11

OPTIONS
  Fast;
  
-- Top-level trigger select
  
SELECT TRIGGER FROM
  
  -- Mouse and button actions
  
  MOUSE => SELECT ENABLE FROM
    Point Down => COORDS, PointMotion;
    Menu Down => COORDS, MenuMotion;
    Adjust Down => COORDS, AdjustMotion;
    ENDCASE;
  
  [DEF,ButtonEvents,(
    [DEF,ButtonEvent,(
      [DEF,SHIFT,(LeftShift Down | RightShift Down)]
      [DEF,CTRL,(CONTROL Down)]
      [DEF,COM,(COMMAND Down)]
      [DEF,TC,(TIME COORDS)]
      ~1 ~2 => SELECT ENABLE FROM
	[SHIFT] => SELECT ENABLE FROM
	  [CTRL] => SELECT ENABLE FROM
	    [COM] => { [TC] Command Control Shift ~1~2 };
	    ENDCASE => { [TC] Control Shift ~1~2 };
	  ENDCASE => SELECT ENABLE FROM
	    [COM] => { [TC] Command Shift ~1~2 };
	    ENDCASE => { [TC] Shift ~1~2 };
	[CTRL] => SELECT ENABLE FROM
	  [COM] => { [TC] Command Control ~1~2 };
	  ENDCASE => { [TC] Control ~1~2 };
	[COM] => { [TC] Command ~1~2 };
	ENDCASE => { [TC] ~1~2 })]
    [ButtonEvent,~1,Down];[ButtonEvent,~1,Up])]
  
  [ButtonEvents,Point];
  [ButtonEvents,Menu];
  [ButtonEvents,Adjust];
  
  ENTER => Enter;
  EXIT => Exit;

  USERABORT Down => Abort;
    
  ENDCASE...