<> <> <> <> <> <> <> <> <> <<>> DIRECTORY Atom USING [GetPName, MakeAtom], Checksum USING [ComputeChecksum], Convert USING [AppendInt, RopeFromInt], EditNotify USING [AddNotifyProc, Change, ChangeSet], Imager USING [Error], ImagerFont USING [Find, Font, Name, Scale], IO USING [PutFR], MessageWindow USING [Append], NodeProps USING [CopyInfoProc, GetProp, Is, Register], NodeStyle USING [DataEntry, DataList, FontAlphabets, FontFace, GetStyleName, IntegerValue, MaxNestingLevel, RealCode, Ref, SetReal, StyleBody], NodeStyleFont USING [], NodeStyleOps USING [ExtObjPair, LocalStyle, LocalStyleRec, OfStyle], NodeStyleWorks USING [BadStyleFile, ExecuteLooksInStyle, ExecuteNameInStyle, ExecuteObjectInStyle, ForceLowerName, ForceLowerRope, FreeFrame, GetFrame, GetStyleDict, RunStyle, StyleError, StyleParamKey, Where, WhoIsExecuting], Real USING [Round], RefText USING [Append, AppendChar, AppendRope, AppendTextRope, ObtainScratch, ReleaseScratch], Rope USING [Cat, Concat, Equal, Find, FromRefText, Match, ROPE, Size], TextLooks USING [Looks, noLooks], TextNode USING [FirstChild, Level, LocNumber, Parent, Ref], TJaM USING [Frame, NumberRep, Object, Push, PushRope, Stop, TryToLoad], VFonts USING [DefaultFont]; NodeStyleOpsImpl: CEDAR MONITOR IMPORTS Atom, Checksum, Convert, EditNotify, Imager, ImagerFont, IO, MessageWindow, NodeProps, NodeStyle, NodeStyleWorks, Real, RefText, Rope, TextNode, TJaM, VFonts EXPORTS NodeStyleFont, NodeStyleOps ~ BEGIN OPEN NodeStyle, NodeStyleOps; <<>> ROPE: TYPE ~ Rope.ROPE; Frame: TYPE ~ TJaM.Frame; Object: TYPE ~ TJaM.Object; Font: TYPE ~ ImagerFont.Font; <