-- JaMImager.TIP
-- last written by Stone, January 23, 1984 3:21:47 pm PST

OPTIONS
  Small;

[DEF,Button,(
  ~1 Down => SELECT ENABLE FROM
  	  Ctrl Down => SELECT ENABLE FROM
			LeftShift Down => { Coords CtrlShift~1Down };
	  		ENDCASE => { Coords Ctrl~1Down };
	  LeftShift Down => { Coords Shift~1Down };
	  ENDCASE => { Coords ~1Down };
  ~1 Up => SELECT ENABLE FROM
  	  Ctrl Down => SELECT ENABLE FROM
			LeftShift Down => { Coords CtrlShift~1Up };
	  		ENDCASE => { Coords Ctrl~1Up };
	  LeftShift Down => { Coords Shift~1Up };
	  ENDCASE => { Coords ~1Up })]

[DEF,Track,(
	SELECT ENABLE FROM
  	  Ctrl Down => SELECT ENABLE FROM
			LeftShift Down => { Coords Place CtrlShiftTrack };
	  		ENDCASE => { Coords Place CtrlTrack };
	  LeftShift Down => { Coords Place ShiftTrack };
	  ENDCASE => { Coords Place Track })]
  
SELECT TRIGGER FROM
  [Button,Red];
  [Button,Yellow];
  [Button,Blue];
  Mouse => SELECT ENABLE FROM
 	Red Down => [Track];
 	Yellow Down => [Track];
 	Blue Down => [Track];
	ENDCASE;
  ENDCASE.