(* Copyright (C) 1992, Digital Equipment Corporation *) (* All rights reserved. *) (* See the file COPYRIGHT for a full description. *) (* *) (* Last modified on Tue Nov 10 13:34:55 PST 1992 by msm *) <*PRAGMA LL*> INTERFACE JoinPixmap; IMPORT ScrnPixmap, JoinScreen, Palette, Pixmap; TYPE Oracle <: ScrnPixmap.Oracle; PROCEDURE New(st: JoinScreen.T): Oracle; PROCEDURE Apply (st: JoinScreen.T; cl: Palette.PixmapClosure; pm: Pixmap.T): ScrnPixmap.T; END JoinPixmap.