<> <> <> <> <> <> <> <> <> <<>> DIRECTORY NodeStyle USING [NameParam, RealParam, Ref], NodeStyleOps USING [OfStyle], Rope USING [ROPE], TextLooks USING [Looks], TJaM USING [Cmd, CommandProc, Dict, Array, Frame, Object]; NodeStyleWorks: CEDAR DEFINITIONS ~ BEGIN OPEN NodeStyle; ROPE: TYPE ~ Rope.ROPE; Object: TYPE ~ TJaM.Object; OfStyle: TYPE ~ NodeStyleOps.OfStyle; <> Frame: TYPE ~ TJaM.Frame; defaultFrame: Frame; GetFrame: PROC [style: Ref, styleName: ATOM, kind: OfStyle] RETURNS [frame: Frame]; FreeFrame: PROC [frame: Frame, styleName: ATOM, kind: OfStyle]; StyleForFrame: PROC [frame: Frame] RETURNS [style: Ref]; <