[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,L,11, [CTRL] => [IfShift,{ IntermediateUser SchemePrettyPrintData },{ IntermediateUser SchemePrettyPrintExpr }]]; ENDCASE. ฎ SchemePretty.tip Copyright ำ 1990, 1992 by Xerox Corporation. All rights reserved. Spreitze, March 24, 1992 3:07 pm PST Cloned from Tioga.tip on March 5, 1990 by MJS สŸ–(cedarcode) style•NewlineDelimiter ™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šœžœf˜k—Kšžœ˜—J˜—…—O