<> <> <> <<>> DIRECTORY ViewerPrivate USING [Screen]; CaretsExtras: CEDAR DEFINITIONS ~ BEGIN DoWithoutCarets: PROC [sx, sy, w, h: INTEGER, screen: ViewerPrivate.Screen, action: PROC]; <> END.