OPTIONS Fast, PrintKeys; SELECT TRIGGER FROM -- top level trigger select [DEF,ClickTime,(170)] [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,ThreeUp,(~1 Up WHILE ~2 Up WHILE ~3 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)] [DEF,SAME2,(~1 Down => ~3; ~2 Down => ~3)] [DEF,SAME3,(~1 Down => ~4; ~2 Down => ~4; ~3 Down => ~4)] [DEF,SAME4,(~1 Down => ~5; ~2 Down => ~5; ~3 Down => ~5; ~4 Down => ~5)] [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])] [DEF,Extend,([Sel,~1 SelStartExtend,BlueMouse])] [DEF,ButtonUp,(SELECT ENABLE FROM [SHIFTUp] [WhileCTRLUp] WHILE [BothUp,~1,~2] => DoEdit; ENDCASE)] Red Down => [MouseClick,Red,SelChar,SelNode]; Yellow Down => SELECT ENABLE FROM Red Up => [MouseClick,Yellow,SelWord,SelBranch]; ENDCASE; 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; Red Up => SELECT ENABLE FROM Blue Down => [Extend]; -- no ForceSelPendDel ENDCASE => [ButtonUp,Blue,Yellow]; Yellow Up => SELECT ENABLE FROM Blue Down WHILE Red Up => [Extend]; -- no ForceSelPendDel ENDCASE => [ButtonUp,Red,Blue]; Blue Up => [ButtonUp,Red,Yellow]; [WhenSHIFTUp,[WhileThreeUp,Red,Yellow,Blue] [WhileCTRLUp],DoEdit]; [WhenCTRLUp,[WhileThreeUp,Red,Yellow,Blue] WHILE [SHIFTUp],DoEdit]; [SAME2,Copy,L6, [IfShift,{ CopyToWorldFormatted },{ CopyToWorld }] ]; Stop Down => EditAbort; DEL Down => SELECT ENABLE FROM [SHIFT] => EditAbort; [CTRL] => EditAbort; Red Down => EditAbort; Yellow Down => EditAbort; Blue Down => EditAbort; ENDCASE; -- no Delete [SAME4,NEXT,MoveRight,Spare2,R12, [IfCtrl, [IfShift,{ IntermediateUser CtrlPrevPlaceholder },{ IntermediateUser CtrlNextPlaceholder }], [IfShift,{ IntermediateUser PreviousPlaceholder },{ IntermediateUser NextPlaceholder }]] ]; Zero Down WHILE [SHIFT] WHILE [CTRL] => { IntermediateUser SelectMatchingParens }; Period Down WHILE [CTRL] => SELECT ENABLE FROM [SHIFT] => { IntermediateUser SelectMatchingAngleBrackets }; ENDCASE => { MakePointSelection }; -- CTRL-. is for reducing to point selection. RightBracket Down WHILE [CTRL] => [IfShift,{ IntermediateUser SelectMatchingCurlyBrackets }, { IntermediateUser SelectMatchingSquareBrackets }]; [DEF,Letter,(~1 Down => SELECT ENABLE FROM ~3 ENDCASE)] -- no Looks operations [Letter,D,3, [CTRL] => { IntermediateUser Everything }]; [Letter,R,17, -- romp to end of current node [CTRL] => [IfShift,{ IntermediateUser GoToBeginningOfNode },{ IntermediateUser GoToEndOfNode }]]; [Letter,S,18,-- copy primary [CTRL] => { IntermediateUser MakeNotPendingDelete ToSecondary SelSecondary SelNotPendDel }]; [Letter,V,21, [CTRL] => { IntermediateUser GrowSelectionToBlanks }]; ENDCASE. . ReadonlyTioga.tip Copyright Σ 1985, 1986, 1988, 1989, 1990, 1991 by Xerox Corporation. All rights reserved. Last edited by Paxton, November 11, 1982 8:30 am Last Edited by: Beach, October 18, 1983 1:07 pm Michael Plass, May 30, 1989 11:04:18 am PDT Bier, April 22, 1990 2:10 pm PDT Tim Diebert: April 29, 1988 8:56:18 am PDT Rick Beach, June 11, 1985 11:26:27 am PDT Spreitzer, June 7, 1985 6:06:16 pm PDT Christian Jacobi, May 1, 1989 4:43:48 pm PDT Doug Wyatt, April 23, 1991 5:28 pm PDT Please keep Tioga.tip up-to-date when you change this! Some macro definitions Miscellaneous macro definitions to standardize certain conventions macro definitions to allow for different keysyms to mean the same Tioga operations Mouse buttons and mouse movement -- Sel and MouseClick are similar to the macros in Tioga.tip but lack check for CTRL no ClickSel -- Extend is similar but does not check SHIFT or force pending delete -- ButtonUp is similar but does not permit a Repeat (SHIFT-ESC) Shift key Commands Function key Commands -- no Paste, Cut -- no BS -- no ESC, AGAIN, UNDO, LF -- no Space to clear looks Number Commands -- only CTRL-SHIFT-0 Punctuation Commands -- no Return, Arrow, BackSlash, Hyphen, Comma -- no Quote, LeftBracket Letter Commands -- Only the Ctrl-Letter commands that don't change the document Κ£–(cedarcode) style•NewlineDelimiter ™codešœ™Kšœ ΟeœO™ZKšœ0™0K™/K™+K™ K™*K™)K™&K™,K™&IheadšΟzœžœž œž œžœžœžœž™6—šΟkœ˜K˜—šŸœŸœŸœΟc˜/™šœB™BK˜—šœŸœ˜K˜—šœŸœŸœ˜,K˜—šœŸœŸœ˜(K˜—šœŸœŸœ˜-K˜—šœŸœŸœ˜ K˜—š œŸœŸœŸœŸœ˜8K˜—šœŸœŸœŸœ˜-K˜—šœŸœŸœ˜$K˜—šœŸœŸœ Ÿœ ˜1K˜—šœŸœ ˜KšœŸœ˜!Kšœ Ÿœ˜"K˜—šœŸœŸœ$˜.K˜—šœŸœ'˜+K˜—šœŸœ˜Kšœ Ÿœ˜*KšœŸœ˜+K˜—š œŸœ ŸœŸœŸœŸœ Ÿœ˜?K˜—š œŸœ ŸœŸœŸœŸœ Ÿœ˜=K˜—KšœR™RKšœŸœŸœ ˜*KšœŸœŸœ/˜9KšœŸœŸœ>˜HK˜—šœ ™ JšœPŸ™TšœŸœŸœŸœŸ˜KšœŸœ@˜FKšŸœ)˜0K˜—šœ ™ K˜—šœŸœ ŸœŸœŸ˜$Kšœ˜KšŸœ˜K˜—Jšœ(Ÿœ™EšœŸœ,˜0K˜—Jšœ5ŸœŸœ™?šœŸœ ŸœŸœŸ˜!KšœŸœ˜7KšŸœ˜ K˜—šœ-˜-K˜—šœŸœŸœŸ˜!Kšœ0˜0KšŸœ˜K˜—šœ ŸœŸœŸ˜šœŸœŸœŸ˜*šœŸœŸœŸ˜#Kšœ#˜#KšŸœ˜—KšŸœ ˜—KšŸœ˜K˜—šœ ŸœŸœŸ˜Kšœ˜Kšœ˜Kšœ"˜"KšŸœ˜K˜—šœ ŸœŸœŸ˜Kšœ ˜,KšŸœ˜"K˜—šœ ŸœŸœŸ˜Kšœ Ÿœ ˜9KšŸœ˜K˜—šœ!˜!K˜——šœ™šœB˜BK˜—šœ+Ÿœ˜CK˜——šœ™šœŸœŸœ˜Kšœ2˜2K˜J˜—šœ™K™—šœ˜J˜—šŸœ ŸœŸœŸ˜KšœŸœ˜KšœŸœ˜Kšœ˜Kšœ˜Kšœ˜KšŸœ  ˜K˜—šœ™K˜—šœŸœŸœŸœ˜!šœ˜Kšœ\˜\KšœX˜X—Kšœ˜K˜—šœŸœŸœŸ™K˜—šœ™K˜——šœ™JšœŸœŸœ™Jš œ ŸœŸœŸœŸœ/˜R—šœ™šœ-™-J™—šœ ŸœŸœ˜šŸœŸœŸ˜KšœŸœ6˜