M3Pretty.tip
Copyright Ó 1990, 1992 by Xerox Corporation. All rights reserved.
Spreitze, February 1, 1993 1:28 pm PST
Cloned from Tioga.tip on March 5, 1990 by MJS
[DEF,SHIFT,(LeftShift Down | RightShift Down | Copy Down)]
[DEF,CTRL,(LeftAlt Down)]
[
DEF,IfShift,(
SELECT
ENABLE
FROM
[SHIFT] => ~1;
ENDCASE => ~2)]
[DEF,ClickTime,(200)]
[DEF,DownClick,(~1 Down BEFORE [ClickTime])]
[DEF,UpClick,(~1 Up BEFORE [ClickTime])]
[DEF,Click,([UpClick,~1] AND [DownClick,~1])]
[DEF,LOOKKEY,(LOOK Down | BW Down | Spare1 Down | R9 Down)]
[
DEF,Letter,(
~1 Down =>
SELECT
ENABLE
FROM
[
LOOKKEY] =>
SELECT
TRIGGER
FROM
[Click,~1] => [IfShift,{ ~2 RemoveCaretLook },{ ~2 ApplyCaretLook }];
ENDCASE => [IfShift,{ ~2 RemoveLook },{ ~2 ApplyLook }];
~3
ENDCASE)]
SELECT
TRIGGER
FROM
-- top level trigger select
[Letter,
E,4,
[CTRL] => { IntermediateUser ExpandM3Sel }];
[Letter,
M,12,
[
CTRL] => [IfShift,
{ IntermediateUser PARAM "m3pp" UnixFilter },
{ IntermediateUser SetM3Looks }]];
ENDCASE.