OPTIONS Fast, PrintKeys;
[DEF,SHIFT,((RightShift Down) | (LeftShift Down))]
[DEF,CTRL,Ctrl Down]
[DEF,ClickTime,(200)]
[DEF,DownClick,(~1 Down BEFORE [ClickTime])]
[DEF,UpClick,(~1 Up BEFORE [ClickTime])]
[DEF,DoubleClick,([UpClick,~1] AND [DownClick,~1])]
[
DEF,SingleRed,(
SELECT
ENABLE
FROM
[SHIFT] => {Coords CopySelect};
[CTRL] => {Coords MoveSelect};
ENDCASE => {Coords PrimarySelect})]
[
DEF,DoubleRed,(
SELECT
ENABLE
FROM
[SHIFT] => {Coords CopyParentSelect};
[CTRL] => {Coords MoveParentSelect};
ENDCASE => {Coords PrimaryParentSelect})]
[DEF,MouseUp,(Red Up WHILE Yellow Up WHILE Blue Up)]
[DEF,ShiftUp,(LeftShift Up WHILE RightShift Up)]
[DEF,CtrlUp,(Ctrl Up)]
[DEF,AllUp,([MouseUp] WHILE [ShiftUp] WHILE [CtrlUp])]
SELECT
TRIGGER
FROM
Red Down =>
SELECT
TRIGGER
FROM
[DoubleClick,Red] => [DoubleRed];
ENDCASE => [SingleRed];
[ShiftUp] => {Coords DoPendingCopy};
[CtrlUp] => {Coords DoPendingMove};
X Down =>
SELECT
ENABLE
FROM
[CTRL] => {Coords SetSwap};
ENDCASE;
DEL Down => {Coords PrimaryDelete};
D Down =>
SELECT
ENABLE
FROM
[CTRL] => {Coords PrimaryDelete};
ENDCASE;
H Down =>
SELECT
ENABLE
FROM
[CTRL] => {Coords Undo};
ENDCASE;
ESC Down
WHILE [
SHIFT] => {Coords Undo};
P Down =>
SELECT
ENABLE
FROM
[CTRL] => {Coords PrimaryParentSelect};
ENDCASE;
Zero Down WHILE [SHIFT] => {Coords PrimaryParentSelect};
RightBracket Down => {Coords PrimaryParentSelect};
Spare2 Down => {Coords PrimarySiblingSelect};
L Down =>
SELECT
ENABLE
FROM
[CTRL] => {Coords PrimarySiblingSelect};
ENDCASE;
Comma Down WHILE [ShiftUp] => {Coords PrimarySiblingSelect};
K Down =>
SELECT
ENABLE
FROM
[CTRL] => {Coords PrimaryChildSelect};
ENDCASE;
I Down =>
SELECT
ENABLE
FROM
[CTRL] => {Coords SelectEntire};
ENDCASE;
M Down =>
SELECT
ENABLE
FROM
[CTRL] => {Coords SelectionToPrimary};
ENDCASE;
V Down =>
SELECT
ENABLE
FROM
[CTRL] => {Coords EvalPrimaryInPlace};
ENDCASE;
ENDCASE.