ui/src/split/JoinCursor.i3


Copyright (C) 1994, Digital Equipment Corp.
<*PRAGMA LL*>

INTERFACE JoinCursor;

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.