-- BoundingBox.tip -- Created by Beach, August 22, 1983 10:01 am 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; 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.