INTERFACE CirclePixmapCache;

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.