ButtonClasses.tip
Copyright Ó 1992 by Xerox Corporation. All rights reserved.
Aaron Goodisman, August 7, 1989 1:21:35 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 => MouseMoved, Coords;
~1 Up => ~1, Up;
~1 Down => [Decode, ~1(,) Down];
)]
SELECT
TRIGGER
FROM
[MouseKey,Red]
[MouseKey,Yellow]
[MouseKey,Blue]
ENDCASE.