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};
DEL Down => {Coords KBPrimaryDelete};
P Down =>
SELECT
ENABLE
FROM
[CTRL] => {Coords KBPrimaryParentSelect};
ENDCASE;
[ShiftUp] => {Coords DoPendingCopy};
[CtrlUp] => {Coords DoPendingMove};
ENDCASE.