<<-- ///cd18/chipnsil.TIP>> <<-- Tip-table for ChipNDale SIL>> <<-- Copyright © 1984 by Xerox Corporation. All rights reserved.>> <<-- Created by: Christian Jacobi, July 28, 1984 10:51:16 pm PDT>> <<-- Last Edited by: Christian Jacobi, November 9, 1984 9:57:47 am PST>> [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)] [DEF,Reset,(StopTrack)] [DEF,FirstSelect,(Coords, ReSelectOnlyP, Track)] [DEF,ReselectLast,(Coords, DeSelectLP, AddSelectP, Track)] [DEF,SingleSelect,(Coords, OnlySelectP, 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,CatchUp,(~1 Up => StopTrack, UseCursor, default)] <<~1 represent's key to catch on up>> [DEF,Catch,(~1 Down => StopTrack, UseCursor, default; [CatchUp, ~1]; [MiddleDown] WHILE ~1 Down => StopTrack, UseCursor, default)] <<~1 represent's key to catch on up, down, middle down>> SELECT TRIGGER FROM <> Mouse => Coords, Track; <> <<--remember: ESC-LF aborts an ongoing paint process>> DEL Down WHILE ESC Down => AbortCommand; ESC Down WHILE DEL Down => AbortCommand; <> <