Scheme.tip
Copyright Ó 1988, 1991 by Xerox Corporation. All rights reserved.
Michael Plass, March 11, 1988 9:46:11 am PST
[
DEF,Button,(
sends the coordinates, the state of the Ctrl and LeftShift keys, the button, and the transition
~1 Down =>
SELECT
ENABLE
FROM
Ctrl Down =>
SELECT
ENABLE
FROM
LeftShift Down => { Coords Ctrl Shift ~1 Down };
ENDCASE => { Coords Ctrl ~1 Down };
LeftShift Down => { Coords Shift ~1 Down };
ENDCASE => { Coords ~1 Down };
~1 Up =>
SELECT
ENABLE
FROM
Ctrl Down =>
SELECT
ENABLE
FROM
LeftShift Down => { Coords Ctrl Shift ~1 Up };
ENDCASE => { Coords Ctrl ~1 Up };
LeftShift Down => { Coords Shift ~1 Up };
ENDCASE => { Coords ~1 Up })]
[
DEF,Track,(
sends the coordinates, the state of the Ctrl and LeftShift keys, and Track
SELECT
ENABLE
FROM
Ctrl Down =>
SELECT
ENABLE
FROM
LeftShift Down => { Coords Ctrl Shift Track };
ENDCASE => { Coords Ctrl Track };
LeftShift Down => { Coords Shift Track };
ENDCASE => { Coords Track })]