<*PRAGMA LL*> INTERFACEJoinCursor ; IMPORT ScrnCursor, JoinScreen, Palette, Cursor; TYPE Oracle <: ScrnCursor.Oracle; PROCEDURE New(st: JoinScreen.T): Oracle; PROCEDURE Apply (st: JoinScreen.T; cl: Palette.CursorClosure; cs: Cursor.T): ScrnCursor.T; END JoinCursor.