<*PRAGMA LL*> INTERFACEJoinFont ; 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.