ActiveButtons.tip
Copyright Ó 1992 by Xerox Corporation. All rights reserved.
Aaron Goodisman, July 7, 1989 11:02:03 am PDT
Bier, June 21, 1989 2:30:14 pm PDT
[DEF,CTRL,(Ctrl Down)]
[DEF,SHIFT,(LeftShift Down | RightShift Down)]
[
DEF,Decode,(
SELECT
ENABLE
FROM
[
SHIFT] =>
SELECT
ENABLE
FROM
[CTRL] => Control, Shift, ~1;
ENDCASE => Shift, ~1;
[CTRL] => Control, ~1;
ENDCASE => ~1)]
[
DEF,MouseKey,(
Mouse WHILE ~1 Down => ~2, StillDown, Coords;
~1 Up => ~2, Up, Coords;
~1 Down => [Decode, ~2(,) Down(,) Coords];
)]
SELECT
TRIGGER
FROM
[MouseKey,Red,Left]
[MouseKey,Yellow,Middle]
[MouseKey,Blue,Right]
ENDCASE.