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];
Blue Down =>
SELECT
ENABLE
FROM
[SHIFT] => {Coords PrimaryChildSelect};
ENDCASE => {Coords PrimarySiblingSelect};
[ShiftUp] => {Coords DoPendingCopy};
[CtrlUp] => {Coords DoPendingMove};
X Down =>
SELECT
ENABLE
FROM
[CTRL] => {Coords SetSwap};
ENDCASE;
DEL Down => {Coords KBPrimaryDelete};
D Down =>
SELECT
ENABLE
FROM
[CTRL] => {Coords KBPrimaryDelete};
ENDCASE;
H Down =>
SELECT
ENABLE
FROM
[CTRL] => {Coords KBUndo};
ENDCASE;
ESC Down
WHILE [
SHIFT] => {Coords KBUndo};
P Down =>
SELECT
ENABLE
FROM
[CTRL] => {Coords KBPrimaryParentSelect};
ENDCASE;
Zero Down WHILE [SHIFT] => {Coords KBPrimaryParentSelect};
RightBracket Down => {Coords KBPrimaryParentSelect};
Spare2 Down => {Coords KBPrimarySiblingSelect};
L Down =>
SELECT
ENABLE
FROM
[CTRL] => {Coords KBPrimarySiblingSelect};
ENDCASE;
Comma Down => {Coords KBPrimarySiblingSelect};
K Down =>
SELECT
ENABLE
FROM
[CTRL] => {Coords KBPrimaryChildSelect};
ENDCASE;
I Down =>
SELECT
ENABLE
FROM
[CTRL] => {Coords KBSelectEntire};
ENDCASE;
M Down =>
SELECT
ENABLE
FROM
[CTRL] => {Coords KBSelectionToPrimary};
ENDCASE;
V Down =>
SELECT
ENABLE
FROM
[CTRL] => {Coords EvalPrimaryInPlace};
ENDCASE;
ENDCASE.