PopUpButton.TIP
Copyright Ó 1991 by Xerox Corporation. All rights reserved.
edited by McGregor, September 9, 1982 1:55 pm
Mike Spreitzer September 15, 1986 8:56:25 pm PDT
[DEF,CTRL,(Ctrl Down | Spare3 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,PerMouseKey,(
Mouse WHILE ~1 Down => Coords, Mark;
~1 Up => Hit;
~1 Down => [Decode,~1(,) Coords(,) Mark];
)]
SELECT
TRIGGER
FROM
[PerMouseKey,Red]
[PerMouseKey,Yellow]
[PerMouseKey,Blue]
ENDCASE.