Louis Monier February 3, 1988 12:18:33 pm PST

Bertrand Serlet February 4, 1988 1:48:10 am PST

-- Scrolling the viewer

Mouse WHILE Yellow Down WHILE Space Down => Scrolling, Coords;

Yellow Up WHILE Space Down => Scroll, Coords;

-- Push hack

Red Up WHILE P Down => Push; -- push into selection

Red Up WHILE Q Down => Pop; -- pop!

-- Create a new overlay

Yellow Down WHILE C Down => MakeOverlay, Coords;

-- Rotations and symetries (counter-ck)

Red Up WHILE R Down => TransformSelect, Rot90;

Red Up WHILE T Down => TransformSelect, FlipX;

Red Up WHILE E Down => TransformSelect, FlipY;

-- Unique selection on mouse down for certain operations

Red Down WHILE Ctrl Down => Select, Exclusive, Select, Point, Coords, Coords;

Red Down WHILE D Down => Select, Exclusive, Select, Point, Coords, Coords;

Red Down WHILE LeftShift Down => CopyInt, Coords, Coords;

-- Unmodified click

Red Down => MouseDown, Coords;

Yellow Down => MouseDown, Coords;

Blue Down => MouseDown, Coords;

-- Delete

Red Up WHILE D Down => DeleteSelect, Coords; -- delete a single item selected on mouse down

Blue Up WHILE D Down => DeleteSelect, Coords; -- delete selection

-- copy select

Mouse WHILE Red Down WHILE LeftShift Down => TrackSelected, Coords;

Mouse WHILE Blue Down WHILE LeftShift Down => TrackSelected, Coords;

Blue Up WHILE LeftShift Down => CopyInt, DownCoords, Coords;

Red Up WHILE LeftShift Down => CopyInt, DownCoords, Coords;

-- move select

Mouse WHILE Red Down WHILE Ctrl Down => TrackSelected, Coords;

Mouse WHILE Blue Down WHILE Ctrl Down => TrackSelected, Coords;

Blue Up WHILE Ctrl Down => MoveInt, DownCoords, Coords;

Red Up WHILE Ctrl Down => MoveInt, DownCoords, Coords;

-- touch select

Red Up WHILE Spare3 Down [UNDO] => Select, Exclusive, Deselect, Touch, Coords, DownCoords;

Red Up WHILE Spare3 Down => Select, Exclusive, Select, Touch, Coords, DownCoords;

Blue Up WHILE Spare3 Down [UNDO] => Select, Add, Deselect, Touch, Coords, DownCoords;

Blue Up WHILE Spare3 Down => Select, Add, Select, Touch, Coords, DownCoords;

-- area select; if both positions are equal, it is a point select

Red Up [UNDO] => Select, Exclusive, Deselect, Area, Coords, DownCoords;

Red Up => Select, Exclusive, Select, Area, Coords, DownCoords;

Blue Up [UNDO] => Select, Add, Deselect, Area, Coords, DownCoords;

Blue Up => Select, Add, Select, Area, Coords, DownCoords;

ENDCASE...