mg/src/CirclePixmapCache.i3


 Copyright (C) 1992, Digital Equipment Corporation 
 All rights reserved. 
 See the file COPYRIGHT for a full description. 
 
 by Stephen Harrison 
 
 Last modified on Tue Jul 21 20:28:23 PDT 1992 by harrison 

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.