BoundingBox.tip
Copyright © 1986 by Xerox Corporation. All rights reserved.
Created by Beach, August 22, 1983 10:01 am
Edited by Michael Plass, April 12, 1984 9:35:54 am PST
Rick Beach, January 25, 1986 12:14:11 pm PST
SELECT
TRIGGER
FROM
Mouse =>
SELECT
ENABLE
FROM
Red Down => Coords, Move;
Yellow Down => Coords, Move;
Blue Down => Coords, Grow;
ENDCASE;
Red Up => Coords, End;
Red Down =>
SELECT
ENABLE
FROM
Blue Down => Abort;
Yellow Down => Abort;
ENDCASE => Coords, Move;
Yellow Up => Coords, End;
Yellow Down =>
SELECT
ENABLE
FROM
Blue Down => Abort;
Red Down => Abort;
ENDCASE => Coords, Move;
Blue Up => Coords, End;
Blue Down =>
SELECT
ENABLE
FROM
Red Down => Abort;
Yellow Down => Abort;
ENDCASE => Coords, Grow;
ENDCASE.