ui/src/split/JoinFont.i3


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

INTERFACE JoinFont;

IMPORT ScrnFont, JoinScreen, Palette, Font;

TYPE
  Oracle <: ScrnFont.Oracle;

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

PROCEDURE Apply (st: JoinScreen.T; cl: Palette.FontClosure; fnt: Font.T):
  ScrnFont.T;

END JoinFont.