InitializeDefaultStyle:
PUBLIC
PROC [suggestedStyle:
ROPE] ~ {
changeSet: EditNotify.ChangeSet;
in: REAL ~ NodeStyle.PointsPerInch;
register the notify proc that updates the style caches when edits occur
changeSet[ChangingProp] ¬ TRUE;
changeSet[MovingNodes] ¬ TRUE;
changeSet[NodeNesting] ¬ TRUE;
changeSet[InsertingNode] ¬ TRUE;
EditNotify.AddNotifyProc[Notify, after, high, changeSet];
initialize all the style caches
InitApplyCacheRecord[];
InitRuleCacheInfo[];
InitLooksCacheInfo[];
InitObjectCacheInfo[];
ClearCaches[TRUE];
establish the default styles wired into Tioga
defaultStyle ¬ Create[];
defaultFormatName ¬ $default;
rootFormatName ¬ $root;
provide some basic style attribute values in case no style gets loaded successfully
SetName[defaultStyle, fontFamily, $Helvetica];
SetReal[defaultStyle, fontSize, 10];
SetReal[defaultStyle, leading, 12];
SetReal[defaultStyle, topLeading, 12];
SetReal[defaultStyle, topIndent, 12];
SetReal[defaultStyle, tabStops, 20];
SetReal[defaultStyle, pageWidth, 8.5*in];
SetReal[defaultStyle, pageLength, 11*in];
SetReal[defaultStyle, leftMargin, 1*in];
SetReal[defaultStyle, rightMargin, 1*in];
SetReal[defaultStyle, topMargin, 1*in];
SetReal[defaultStyle, bottomMargin, 1*in];
SetReal[defaultStyle, lineLength, 6.5*in];
SetReal[defaultStyle, underlineThickness, 1];
SetReal[defaultStyle, underlineDescent, 1];
SetReal[defaultStyle, strikeoutThickness, 1];
SetReal[defaultStyle, strikeoutAscent, 4];
SetReal[defaultStyle, maxVerticalExpansion, 3];
SetReal[defaultStyle, maxHorizontalExpansion, NodeStyle.PointsPerFil];
SetReal[defaultStyle, hyphenCode, ORD['-]];
register the special handling procedures for the local style property: StyleDef
NodeProps.Register[name: $StyleDef, reader: ReadSpecs, writer: WriteSpecs, copier: CopyInfoProc];
SetDefaultStyle[suggestedStyle];
};