CaretsExtras.mesa
Copyright
© 1985 by Xerox Corporation. All rights reserved.
Michael Plass, November 2, 1985 8:40:25 am PST
DIRECTORY ViewerPrivate
USING [Screen];
CaretsExtras:
CEDAR
DEFINITIONS
~
BEGIN
DoWithoutCarets:
PROC [sx, sy, w, h:
INTEGER, screen: ViewerPrivate.Screen, action:
PROC];
Calls action, ensuring that no carets are visible in the designated screen rectangle.
END.