[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. ¬ 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 Κ½•NewlineDelimiter –(cedarcode) style™code™ Kšœ Οeœ7™BK™&—K˜K™-K˜KšœΟkœžœ0˜:Kšœžœžœ˜K˜šœžœ žœžœž˜ Kšœžœ˜Kšžœ˜—K˜Kšœžœ˜K˜Kšœžœžœ˜,Kšœžœžœ˜(K˜Kšœžœžœ˜-K˜Kš œžœžœžœžœžœ˜;K˜šœžœ ˜ šœ žœžœž˜šœžœžœžœž˜ KšœE˜EKšžœ1˜8—Kšœ˜—Kšžœ˜ —K˜šžœžœžœΟc˜/šœžœ˜ Kšœžœ'˜,—šœžœ˜ šœžœ˜K˜-K˜"——Kšžœ˜—K˜—…—4