<<>> <> <> <> <> <> <> <> <> <> <<>> DIRECTORY NodeStyle USING [NameParam, RealParam, Style, StyleKind], Rope USING [ROPE], Tioga USING [Looks], TJaM USING [Cmd, CommandProc, Dict, Array, Frame, Object]; NodeStyleWorks: CEDAR DEFINITIONS ~ BEGIN ROPE: TYPE ~ Rope.ROPE; Object: TYPE ~ TJaM.Object; Frame: TYPE ~ TJaM.Frame; Style: TYPE ~ NodeStyle.Style; StyleKind: TYPE ~ NodeStyle.StyleKind; -- { screen, print, base } Ref: TYPE ~ Style; -- synonym for compatibility OfStyle: TYPE ~ StyleKind; -- synonym for compatibility <> 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]; <