<<-- PW.TIP>> <<-- Additionnal Tip-table for PW>> <<-- Copyright © 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,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,InFooMode,(WHILE ChipndaleXMode)]>> <<[DEF,NotInFooMode,(WHILE ChipndaleNXMode)]>> <<[DEF,ClearFooMode,(UseCursor, SetXModeOff)]>> <<[DEF,SetFooMode,(UseCursor, SetXModeOn)]>> [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)] <<~1 represent's key; ~2 represent's Menu atom to call>> <<>> [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 )] <<~1 represent's key to catch>> [DEF,MouseUpOrCTRL,([LeftUp] WHILE ~1 Down => ~2; [RightUp] WHILE ~1 Down => ~2; ~1 Down WHILE [CTRL] => ~2; [CTRL] WHILE ~1 Down => ~2 )] <<~1 represent's key ; ~2 represents action>> <<>> [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)] <<~1 represent's key ; ~2 represents action atom>> [DEF,StepConnecty, (~1 Down WHILE [CTRL] WHILE TAB Down => ~2; [CTRL] WHILE ~1 Down WHILE TAB Down => ~2)] <<-- NOT TAB last key down.>> <<~1 represent's key ; ~2 represents action atom>> SELECT TRIGGER FROM [Menu, U, { Coords PatchworkUserMenu }]; <<>> <> <> [MouseUpOrCTRL, C, ExpandAndPushS]; <<>> ENDCASE.