Copyright (C) 1994, Digital Equipment Corp.
by Stephen Harrison
INTERFACECirclePixmapCache ; IMPORT Pixmap; TYPE T <: T_Public; T_Public = OBJECT METHODS create (width, height: CARDINAL; border : CARDINAL := 0; fill := TRUE): Pixmap.T; purge (); END; CONST DEFAULT_REMEMBER = 100; PROCEDURE New (remember := DEFAULT_REMEMBER): T;
Return a cache, remembering only the last remember
referenced circles
(ellipses).
END CirclePixmapCache.