ui/src/split/JoinPaintOp.i3


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

INTERFACE JoinPaintOp;

IMPORT ScrnPaintOp, JoinScreen, Palette, PaintOp;

TYPE
  Oracle <: ScrnPaintOp.Oracle;

PROCEDURE New(st: JoinScreen.T): Oracle;

PROCEDURE Apply (st: JoinScreen.T; cl: Palette.OpClosure; op: PaintOp.T):
  ScrnPaintOp.T;

END JoinPaintOp.