[DEF,LeftDown,(Red Down)] [DEF,LeftUp,(Red Up)] [DEF,MiddleDown,(Yellow Down)] [DEF,MiddleUp,(Yellow Up)] [DEF,RightDown,(Blue Down)] [DEF,RightUp,(Blue Up)] [DEF,CTRL,(Ctrl Down)] [DEF,SHIFT,(LeftShift Down | RightShift Down)] [DEF,LEFTSH,(LeftShift Down | Lock Down)] [DEF,WireCursor,(WHILE ChipndaleWireCursor)] [DEF,ArrowCursor,(WHILE ChipndaleArrowCursor)] [DEF,RectCursor,(WHILE ChipndaleRectCursor)] [DEF,ResetT,(Coords, StopTrack, Track)] -- might Track [DEF,Reset,(StopTrack)] [DEF,FirstSelect,(Coords, ReSelectOnlyP, Track)] [DEF,CloseFirstSelect,(Coords, CloseReSelectOnlyP, Track)] [DEF,OtherSelect,(Coords, OnlySelectP, Track)] [DEF,ReselectLast,(Coords, DeSelectLP, AddSelectP, Track)] [DEF,RectTracking,(Coords, StopTrack, UseCursor, rect, Track)] [DEF,ArrowTracking,(Coords, StopTrack, UseCursor, arrow, Track)] [DEF,WireTracking,(Coords, StopTrack, UseCursor, wire, Track)] [DEF,PartialWire,(Coords, ContinueWire, UseCursor, PartialWireAdvance, Track)] [DEF,FlipWire,(UseCursor, FlipWire, Coords, Track)] --WARNING these Coords might be out of range [DEF,Menu, (~1 Down WHILE Space Down WHILE [RightUp] WHILE [LeftUp] WHILE [MiddleUp] => ~2; Space Down WHILE ~1 Down WHILE [RightUp] WHILE [LeftUp] WHILE [MiddleUp] => ~2)] [DEF,Catch,(~1 Down => StopTrack, UseCursor, default; ~1 Up => StopTrack, UseCursor, default; [RightDown] WHILE ~1 Down => [ResetT]; [LeftDown] WHILE ~1 Down => [FirstSelect]; [MiddleDown] WHILE ~1 Down => StopTrack, UseCursor, default )] [DEF,MouseUpOrCTRL,([LeftUp] WHILE ~1 Down => ~2; [RightUp] WHILE ~1 Down => ~2; ~1 Down WHILE [CTRL] => ~2; [CTRL] WHILE ~1 Down => ~2 )] [DEF,StepStretch, ([LeftUp] WHILE ~1 Down WHILE TAB Down => Coords, ~2; [RightUp] WHILE ~1 Down WHILE TAB Down => Coords, ~2; ~1 Down WHILE TAB Down WHILE [LeftDown] => Coords, ~2; ~1 Down WHILE TAB Down WHILE [RightDown] => Coords, ~2)] [DEF,StepConnecty, (~1 Down WHILE [CTRL] WHILE TAB Down => ~2; [CTRL] WHILE ~1 Down WHILE TAB Down => ~2)] SELECT TRIGGER FROM [Menu, U, { Coords PatchworkUserMenu }]; [MouseUpOrCTRL, C, ExpandAndPushS]; ENDCASE.  -- PW.TIP -- Additionnal Tip-table for PW -- Copyright c 1984, 1985 by Xerox Corporation. All rights reversed. -- Created by: Bertrand Serlet, February 5, 1985 8:53:42 am PST -- Last Edited by: Bertrand Serlet, May 16, 1985 11:23:31 am PDT [DEF,InFooMode,(WHILE ChipndaleXMode)] [DEF,NotInFooMode,(WHILE ChipndaleNXMode)] [DEF,ClearFooMode,(UseCursor, SetXModeOff)] [DEF,SetFooMode,(UseCursor, SetXModeOn)] ~1 represent's key; ~2 represent's Menu atom to call ~1 represent's key to catch ~1 represent's key ; ~2 represents action ~1 represent's key ; ~2 represents action atom -- NOT TAB last key down. ~1 represent's key ; ~2 represents action atom CCC Push ʘJ™ J™Jšœ Ïmœ7™EJšœ@™@JšœA™AJ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜J˜Jšœ˜Jšœ.˜.Jšœ)˜)J˜Jšœ,˜,Jšœ.˜.Jšœ,˜,J˜Jšœ&™&Jšœ*™*Jšœ+™+Jšœ(™(J˜Jšœ(Ïc˜6Jšœ˜J˜Jšœ0˜0Jšœ:˜:Jšœ.˜.Jšœ:˜:J˜Jšœ>˜>Jšœ@˜@Jšœ>˜>J˜JšœN˜NJšœ4ž,˜`J˜šœ ˜ šœ˜Jšœ6˜6—šœ˜Jšœ7˜7—J™4—J™J˜šœ6˜6Jšœ'˜'Jšœ&˜&Jšœ*˜*Jšœ;˜;Jšœ˜J™J˜—šœ1˜1Jšœ˜Jšœ˜Jšœ˜J˜J™)—J™šœ˜Jšœ5˜5Jšœ5˜5Jšœ6˜6Jšœ8˜8J™.J˜—šœ˜Jšœ+˜+Jšœ+˜+J™J™.J˜—J˜J˜Jšœ˜˜Jšœ)˜)J™šœ™™Jšœ#˜#———™Jšœ˜——…—* è