<> <> <> <<>> DIRECTORY ImagerTypeface USING [ROPE, Typeface]; ImagerTypefaceExtras: CEDAR DEFINITIONS ~ BEGIN OPEN ImagerTypeface; GenericCreator: TYPE ~ REF GenericCreatorRep; GenericCreatorRep: TYPE ~ RECORD [ data: REF, proc: GenericCreatorProc, priority: INTEGER _ 0 ]; GenericCreatorProc: TYPE ~ PROC [self: GenericCreator, name: ROPE] RETURNS [Typeface]; RegisterGenericCreator: PROC [genericCreator: GenericCreator]; <> END.