-- 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 }];
CCC
Push
[MouseUpOrCTRL, C, ExpandAndPushS];