OPTIONS Fast, PrintKeys; [DEF,ClickTime,(200)] [DEF,DownClick,(~1 Down BEFORE [ClickTime])] [DEF,UpClick,(~1 Up BEFORE [ClickTime])] [DEF,Click,([UpClick,~1] AND [DownClick,~1])] [DEF,BothUp,(~1 Up WHILE ~2 Up)] [DEF,WhileThreeUp, (WHILE ~1 Up WHILE ~2 Up WHILE ~3 Up)] [DEF,FourUp,(~1 Up WHILE ~2 Up WHILE ~3 Up WHILE ~4 Up)] [DEF,WhileFiveUp, (WHILE ~1 Up WHILE ~2 Up WHILE ~3 Up WHILE ~4 Up WHILE ~5 Up)] [DEF,WhileSixUp, (WHILE ~1 Up WHILE ~2 Up WHILE ~3 Up WHILE ~4 Up WHILE ~5 Up WHILE ~6 Up)] [DEF,CTRL,(Ctrl Down | Spare3 Down)] [DEF,WhileCTRLUp,(WHILE Ctrl Up WHILE Spare3 Up)] [DEF,WhenCTRLUp,( Ctrl Up WHILE Spare3 Up ~1 => ~2; Spare3 Up WHILE Ctrl Up ~1 => ~2)] [DEF,SHIFT,(LeftShift Down | RightShift Down)] [DEF,SHIFTUp,[BothUp,LeftShift,RightShift]] [DEF,WhenSHIFTUp,( LeftShift Up WHILE RightShift Up ~1 => ~2; RightShift Up WHILE LeftShift Up ~1 => ~2)] [DEF,IfShift,(SELECT ENABLE FROM [SHIFT] => ~1; ENDCASE => ~2)] [DEF,IfCtrl,(SELECT ENABLE FROM [CTRL] => ~1; ENDCASE => ~2)] SELECT TRIGGER FROM -- top level trigger select [DEF,Sel,(SELECT ENABLE FROM [SHIFT] => { ~2 Coords SelSecondary ToPrimary ForceSelNotPendDel ~1 }; ENDCASE => { ~2 Coords ForceSelNotPendDel ~1 })] [DEF,MouseClick,(SELECT TRIGGER FROM [Click,~1] => [Sel,~3,~1Mouse]; ENDCASE => [Sel,~2,~1Mouse])] Red Down => [MouseClick,Red,SelChar,SelNode]; Yellow Down => SELECT ENABLE FROM Red Up => [MouseClick,Yellow,SelWord,SelBranch]; ENDCASE; [DEF,Extend,([Sel,~1 SelStartExtend,BlueMouse])] Blue Down => SELECT ENABLE FROM [BothUp,Red,Yellow] => SELECT TRIGGER FROM [Click,Blue] => SELECT TRIGGER FROM [Click,Blue] => [Extend,SelExpand]; ENDCASE => [Extend,SelReduce]; ENDCASE => [Extend]; ENDCASE; Mouse => SELECT ENABLE FROM Red Down => [Sel,SelUpdate]; Yellow Down => [Sel,SelUpdate]; Blue Down => { Coords SelExtend }; ENDCASE; [DEF,ButtonUp,(SELECT ENABLE FROM [SHIFTUp] [WhileCTRLUp] WHILE [BothUp,~1,~2] => DoEdit; ENDCASE)] Red Up => SELECT ENABLE FROM Blue Down => [Extend]; ENDCASE => [ButtonUp,Blue,Yellow]; Yellow Up => SELECT ENABLE FROM Blue Down WHILE Red Up => [Extend]; ENDCASE => [ButtonUp,Red,Blue]; Blue Up => [ButtonUp,Red,Yellow]; [WhenSHIFTUp,[WhileThreeUp,Red,Yellow,Blue] [WhileCTRLUp],DoEdit]; [WhenCTRLUp,[WhileThreeUp,Red,Yellow,Blue] WHILE [SHIFTUp],DoEdit]; Spare2 Down => [IfShift,{ IntermediateUser PreviousPlaceholder },{ IntermediateUser NextPlaceholder }]; DEL Down => SELECT ENABLE FROM [SHIFT] => EditAbort; [CTRL] => EditAbort; Red Down => EditAbort; Yellow Down => EditAbort; Blue Down => EditAbort; ENDCASE; Zero Down WHILE [SHIFT] WHILE [CTRL] => { IntermediateUser SelectMatchingParens }; Period Down WHILE [SHIFT] WHILE [CTRL] => { IntermediateUser SelectMatchingAngleBrackets }; RightBracket Down WHILE [CTRL] => [IfShift,{ IntermediateUser SelectMatchingCurlyBrackets }, { IntermediateUser SelectMatchingSquareBrackets }]; D Down WHILE [CTRL] => { IntermediateUser Everything }; R Down WHILE [CTRL] => -- romp to end of current node { MakePointSelection GrowSelection GrowSelection GrowSelection CaretAfter MakePointSelection }; S Down WHILE [CTRL] => -- copy primary { IntermediateUser MakeNotPendingDelete ToSecondary SelSecondary SelNotPendDel }; V Down WHILE [CTRL] => { IntermediateUser GrowSelectionToBlanks }; ENDCASE.  ReadonlyTioga.tip Copyright c 1985 by Xerox Corporation. All rights reserved. Last Edited by Paxton, November 3, 1982 12:51 pm Last Edited by: Beach, October 18, 1983 1:10 pm Rick Beach, June 11, 1985 1:25:15 pm PDT Miscellaneous macro definitions to standardize certain conventions Mouse buttons and mouse movement -- Sel and MouseClick are similar to the macros in Tioga.tip but lack check for CTRL -- Extend is similar but does not check SHIFT -- ButtonUp is similar but does not permit a Repeat (SHIFT-ESC) Shift key Commands Function key Commands -- no BS -- no ESC, LF -- no Space to clear looks -- only the Zero number commands Punctuation Commands -- no Return, Arrow, BackSlash, Dash, Comma commands -- no Quote or LeftBracket commands Letter Commands Κ—˜šœ™Icodešœ Οmœ1™—J˜šœžœ ˜Jš œžœžœžœžœžœžœ˜J—J˜Jšœžœžœ˜$J˜Jšœžœžœ žœ ˜1J˜šœžœ ˜Jšœžœ˜!Jšœ žœ˜"—J˜Jšœžœžœ$˜.J˜Jšœžœ'˜+J˜šœžœ˜Jšœ žœ˜*Jšœžœ˜+—J˜šœžœ žœžœž˜ Jšœžœ˜Jšžœ˜—J˜šœžœ žœžœž˜Jšœžœ˜ Jšžœ˜—J˜šžœžœžœΟc˜/J˜Jšœ ™ J˜JšœPž™TJ™šœžœžœžœž˜Jšœžœ@˜FJšžœ)˜0—J˜šœžœ žœžœž˜$J˜Jšžœ˜—J˜J˜-J˜šœžœžœž˜!J˜0Jšžœ˜—J˜Jšœ(ž™-J™Jšœžœ,˜0J˜šœ žœžœž˜šœžœžœž˜*šœžœžœž˜#J˜#Jšžœ˜—Jšžœ ˜—Jšžœ˜—J˜šœ žœžœž˜J˜J˜J˜"Jšžœ˜—J˜Jšœ5žœžœ™?J™šœžœ žœžœž˜!Jšœžœ˜7Jšžœ˜ —J˜Jšœ žœžœž˜J˜Jšœžœ˜#J˜Jšœ žœžœž˜Jšœ žœ˜$Jšœžœ˜ J˜J˜!J˜Jšœ™J˜JšœB˜BJšœ+žœ˜CJ˜J˜Jšœ™J˜Jšœ™J™˜J˜X—J˜Jšœ ™ J™šžœ žœžœž˜Jšœžœ˜Jšœžœ˜J˜J˜J˜Jšžœ˜—J˜Jšœ™J™J™ J™š œ žœžœžœžœ˜'J˜*—J˜Jšœ™J˜Jšœ4™4J™š œ žœžœžœžœ˜)J˜1—J˜Jšœ#™#J™šœžœžœ˜!˜:J˜3——J˜Jšœ™J˜šžœžœžœ˜J˜ —J˜šžœžœžœŸ˜6Jšœ_˜_—šžœžœžœŸ˜'J˜Q—J˜šžœžœžœ˜J˜+—J˜—Jšžœ˜J˜J˜—…— φ—