<> <> <> <> <> <> <> <> <> <<>> DIRECTORY NodeStyle USING [NameParam, RealParam, Ref], NodeStyleOps USING [OfStyle], Rope USING [ROPE], TextLooks USING [Looks], TJaM USING [Frame, PushInteger, PushReal, PopReal]; NodeStyleWorks: CEDAR DEFINITIONS IMPORTS TJaM = BEGIN OPEN NodeStyle; Object: TYPE = TJaM.Object; OfStyle: TYPE = NodeStyleOps.OfStyle; <> Frame: TYPE = TJaMInternal.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]; <