-- ImagerMaskContext.mesa

-- Mik Lamming - July 30, 1986 5:34:19 pm PDT

DIRECTORY Imager;

ImagerMaskContext: CEDAR DEFINITIONS

~ BEGIN

Create: PROC [context: Imager.Context, maskColor: Imager.Color, active:BOOLEAN ← TRUE]
RETURNS [maskContext: Imager.Context] ;

Makes a context that always paints with maskColor regardless of what the client asks for.

GetChildContext: PROC [context: Imager.Context] RETURNS [child: Imager.Context] ;

SetMaskColor: PROC [context: Imager.Context, maskColor: Imager.Color] ;

Sets a new default mask color

Activated: PROC [context: Imager.Context, active:BOOLEAN ← TRUE] ;

Activates/ deactivates the masking function

END.