/Ivy/Atkinson/5.2/Atkinson.tip
Russ Atkinson, May 10, 1984 11:52:41 am PDT
Sweet, August 30, 1985 10:11:43 am PDT
SELECT
TRIGGER
FROM
Keyset1 Down =>
SELECT ENABLE FROM
(Keyset5 Down) => {SelBranch UnNest Join " " 1 GoToNextChar Break Nest SetMesaLooks};
ENDCASE => {UnNest Join " " 1 GoToNextChar Break Nest SetMesaLooks};
Keyset2 Down =>
SELECT ENABLE FROM
(Keyset5 Down) => {1 GoToPreviousChar};
ENDCASE => {1 GoToNextChar};
Keyset3 Down =>
SELECT ENABLE FROM
(Keyset5 Down) => {1 GoToPreviousWord};
ENDCASE => {1 GoToNextWord};
Keyset4 Down =>
SELECT ENABLE FROM
(Keyset5 Down) => {1 GoToPreviousNode};
ENDCASE => {1 GoToNextNode};
[DEF,ClickTime,(200)]
[DEF,CTRL,(Ctrl Down | Spare3 Down)]
[DEF,DownClick,(~1 Down BEFORE [ClickTime])]
[DEF,UpClick,(~1 Up BEFORE [ClickTime])]
[DEF,Click,([UpClick,~1] AND [DownClick,~1])]
[
DEF,IfShift,(
SELECT
ENABLE
FROM
[SHIFT] => ~1;
ENDCASE => ~2)]
[
DEF,Letter,(
~1 Down =>
SELECT
ENABLE
FROM
BW Down =>
SELECT
TRIGGER
FROM
[Click,~1] => [IfShift,{ ~2 RemoveCaretLook },{ ~2 ApplyCaretLook }];
ENDCASE => [IfShift,{ ~2 RemoveLook },{ ~2 ApplyLook }];
~3
ENDCASE)]
[Letter,
L,11,
[CTRL] => [IfShift,{ 1 GoToNextChar }, { 1 GoToPreviousChar }]];
[Letter,
L,11,
[CTRL] => [IfShift,{ 1 GoToNextChar }, { 1 GoToPreviousChar }]];
ENDCASE...