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.