-- Controls.Tip
Bloomenthal, September 15, 1988 1:31:19 pm PDT
[DEF,SHIFT,(RightShift Down | LeftShift Down)]
[DEF,CONTROL,Ctrl Down]
SELECT
TRIGGER
FROM
Red Down =>
SELECT
ENABLE
FROM
[
SHIFT] =>
SELECT
ENABLE
FROM
[CONTROL] => {Coords downLeftShiftControl};
ENDCASE => {Coords downLeftShift};
ENDCASE =>
SELECT
ENABLE
FROM
[CONTROL] => {Coords downLeftControl};
ENDCASE => {Coords downLeft};
Yellow Down =>
SELECT
ENABLE
FROM
[
SHIFT] =>
SELECT
ENABLE
FROM
[CONTROL] => {Coords downMiddleShiftControl};
ENDCASE => {Coords downMiddleShift};
ENDCASE =>
SELECT
ENABLE
FROM
[CONTROL] => {Coords downMiddleControl};
ENDCASE => {Coords downMiddle};
Blue Down =>
SELECT
ENABLE
FROM
[
SHIFT] =>
SELECT
ENABLE
FROM
[CONTROL] => {Coords downRightShiftControl};
ENDCASE => {Coords downRightShift};
ENDCASE =>
SELECT
ENABLE
FROM
[CONTROL] => {Coords downRightControl};
ENDCASE => {Coords downRight};
Mouse
WHILE Red Down =>
SELECT
ENABLE
FROM
[
SHIFT] =>
SELECT
ENABLE
FROM
[CONTROL] => {Coords heldLeftShiftControl};
ENDCASE => {Coords heldLeftShift};
ENDCASE =>
SELECT
ENABLE
FROM
[CONTROL] => {Coords heldLeftControl};
ENDCASE => {Coords heldLeft};
Mouse
WHILE Yellow Down =>
SELECT
ENABLE
FROM
[
SHIFT] =>
SELECT
ENABLE
FROM
[CONTROL] => {Coords heldMiddleShiftControl};
ENDCASE => {Coords heldMiddleShift};
ENDCASE =>
SELECT
ENABLE
FROM
[CONTROL] => {Coords heldMiddleControl};
ENDCASE => {Coords heldMiddle};
Mouse
WHILE Blue Down =>
SELECT
ENABLE
FROM
[
SHIFT] =>
SELECT
ENABLE
FROM
[CONTROL] => {Coords heldRightShiftControl};
ENDCASE => {Coords heldRightShift};
ENDCASE =>
SELECT
ENABLE
FROM
[CONTROL] => {Coords heldRightControl};
ENDCASE => {Coords heldRight};
Red Up =>
SELECT
ENABLE
FROM
[
SHIFT] =>
SELECT
ENABLE
FROM
[CONTROL] => {Coords upLeftShiftControl};
ENDCASE => {Coords upLeftShift};
ENDCASE =>
SELECT
ENABLE
FROM
[CONTROL] => {Coords upLeftControl};
ENDCASE => {Coords upLeft};
Yellow Up =>
SELECT
ENABLE
FROM
[
SHIFT] =>
SELECT
ENABLE
FROM
[CONTROL] => {Coords upMiddleShiftControl};
ENDCASE => {Coords upMiddleShift};
ENDCASE =>
SELECT
ENABLE
FROM
[CONTROL] => {Coords upMiddleControl};
ENDCASE => {Coords upMiddle};
Blue Up =>
SELECT
ENABLE
FROM
[
SHIFT] =>
SELECT
ENABLE
FROM
[CONTROL] => {Coords upRightShiftControl};
ENDCASE => {Coords upRightShift};
ENDCASE =>
SELECT
ENABLE
FROM
[CONTROL] => {Coords upRightControl};
ENDCASE => {Coords upRight};
ENDCASE.
SELECT TRIGGER FROM
With double-clicking: -- we give this up; it causes too many problems
Red Down =>
SELECT TRIGGER FROM
Red Up BEFORE 100 AND Red Down BEFORE 200 =>
SELECT ENABLE FROM
[SHIFT] => SELECT ENABLE FROM
[CONTROL] => {Coords downLeftDoubleShiftControl};
ENDCASE => {Coords downLeftDoubleShift};
ENDCASE => SELECT ENABLE FROM
[CONTROL] => {Coords downLeftDoubleControl};
ENDCASE => {Coords downLeftDouble};
ENDCASE =>
SELECT ENABLE FROM
[SHIFT] => SELECT ENABLE FROM
[CONTROL] => {Coords downLeftShiftControl};
ENDCASE => {Coords downLeftShift};
ENDCASE => SELECT ENABLE FROM
[CONTROL] => {Coords downLeftControl};
ENDCASE => {Coords downLeft};
Yellow Down =>
SELECT TRIGGER FROM
Yellow Up BEFORE 100 AND Yellow Down BEFORE 200 => -- double-clicked
SELECT ENABLE FROM
[SHIFT] => SELECT ENABLE FROM
[CONTROL] => {Coords downMiddleDoubleShiftControl};
ENDCASE => {Coords downMiddleDoubleShift};
ENDCASE => SELECT ENABLE FROM
[CONTROL] => {Coords downMiddleDoubleControl};
ENDCASE => {Coords downMiddleDouble};
ENDCASE =>
SELECT ENABLE FROM
[SHIFT] => SELECT ENABLE FROM
[CONTROL] => {Coords downMiddleShiftControl};
ENDCASE => {Coords downMiddleShift};
ENDCASE => SELECT ENABLE FROM
[CONTROL] => {Coords downMiddleControl};
ENDCASE => {Coords downMiddle};
Blue Down =>
SELECT TRIGGER FROM
Blue Up BEFORE 100 AND Blue Down BEFORE 200 => -- double-clicked
SELECT ENABLE FROM
[SHIFT] => SELECT ENABLE FROM
[CONTROL] => {Coords downRightDoubleShiftControl};
ENDCASE => {Coords downRightDoubleShift};
ENDCASE => SELECT ENABLE FROM
[CONTROL] => {Coords downRightDoubleControl};
ENDCASE => {Coords downRightDouble};
ENDCASE =>
SELECT ENABLE FROM
[SHIFT] => SELECT ENABLE FROM
[CONTROL] => {Coords downRightShiftControl};
ENDCASE => {Coords downRightShift};
ENDCASE => SELECT ENABLE FROM
[CONTROL] => {Coords downRightControl};
ENDCASE => {Coords downRight};
Mouse WHILE Red Down =>
SELECT ENABLE FROM
[SHIFT] => SELECT ENABLE FROM
[CONTROL] => {Coords heldLeftShiftControl};
ENDCASE => {Coords heldLeftShift};
ENDCASE => SELECT ENABLE FROM
[CONTROL] => {Coords heldLeftControl};
ENDCASE => {Coords heldLeft};
Mouse WHILE Yellow Down =>
SELECT ENABLE FROM
[SHIFT] => SELECT ENABLE FROM
[CONTROL] => {Coords heldMiddleShiftControl};
ENDCASE => {Coords heldMiddleShift};
ENDCASE => SELECT ENABLE FROM
[CONTROL] => {Coords heldMiddleControl};
ENDCASE => {Coords heldMiddle};
Mouse WHILE Blue Down =>
SELECT ENABLE FROM
[SHIFT] => SELECT ENABLE FROM
[CONTROL] => {Coords heldRightShiftControl};
ENDCASE => {Coords heldRightShift};
ENDCASE => SELECT ENABLE FROM
[CONTROL] => {Coords heldRightControl};
ENDCASE => {Coords heldRight};
Red Up => {Coords upLeft};
Yellow Up => {Coords upMiddle};
Blue Up => {Coords upRight};
ENDCASE.