BoundingBox.tip
Created by Beach, August 22, 1983 10:01 am
Edited by Michael Plass, April 12, 1984 9:35:54 am PST
SELECT
TRIGGER
FROM
Mouse
WHILE Red Down => Coords, Move;
Red Up => Coords, End;
Red Down =>
SELECT
ENABLE
FROM
Blue Down => Abort;
Yellow Down => Abort;
ENDCASE => Coords, Move;
Yellow Down =>
SELECT
ENABLE
FROM
Blue Down => Abort;
Red Down => Abort;
ENDCASE;
Blue Down =>
SELECT
ENABLE
FROM
Red Down => Abort;
Yellow Down => Abort;
ENDCASE;
ENDCASE.