[Pixel]<Imaging>7.0>TiogaTemp>NodeStyleOps.mesa!1

NodeStyleOps.mesa

Written by Bill Paxton, January 1981

Last changed by Bill Paxton, December 1, 1982 8:37 am

Michael Plass, March 14, 1985 4:47:24 pm PST

Beach, March 20, 1985 5:52:54 pm PST

Doug Wyatt, September 25, 1986 10:50:35 am PDT

DIRECTORY

NodeStyle USING [Style],

Rope USING [ROPE],

Tioga USING [Looks, Node];

NodeStyleOps: CEDAR DEFINITIONS

~ BEGIN

ROPE: TYPE ~ Rope.ROPE;

Style: TYPE ~ NodeStyle.Style;

Style Operations

Create: PROC RETURNS [Style];

create a style body

Copy: PROC [dest, source: Style];

copy a style body

Alloc: PROC RETURNS [Style];

get from a small cache

Free: PROC [Style];

don't free more than once or disaster!

LoadStyle: PROC [name: ATOM] RETURNS [ok: BOOL];

make sure that named style is loaded

fast return if is already loaded

ReloadStyle: PROC [name: ATOM] RETURNS [ok: BOOL];

forces rereading of definition

Local Styles

LocalStyle: TYPE ~ REF LocalStyleRec;

LocalStyleRec: TYPE ~ RECORD [ name: ATOM, def: ROPE ];

defaultStyleName: ATOM;

defaultStyle: Style;

defaultStylesForExtensions: LIST OF ExtObjPair;

ExtObjPair: TYPE ~ RECORD [fileExtension: ATOM, styleObject: REF];

SetDefaultStyle: PROC [name: ROPE];

SetExtensionStyles: PROC [value: LIST OF ROPE];

Apply operations

ApplyAll: PROC [ref: Style, node: Tioga.Node, kind: StyleKind ← screen];

ApplyAll[ref,NIL] sets ref to default values

including setting style name to "default"

ApplyAll[ref,node] for node # NIL

1. ApplyAll[ref, Parent[node]]

2. ApplyForNode[ref, node, alt]

where alt is "root" if parent=NIL

or "default" otherwise

ApplyForNode: PROC [ref: Style, node: Tioga.Node, alt: ATOM, kind: StyleKind ← screen];

1. ApplyObject[ref, node prefix object]

2. ApplyFormat[ref, node format, alt]

3. ApplyObject[ref, node postfix object]

ApplyFormat: PROC [ref: Style, name, alt: ATOM, kind: StyleKind ← screen];

executes the name to modify the body

if name is null or undefined, applies alt instead

ApplyLooks: PROC [ref: Style, looks: Tioga.Looks, kind: StyleKind ← screen];

executes the looks to modify the body

ApplyObject: PROC [ref: Style, object: REF, kind: StyleKind ← screen];

executes the object to modify the body

StyleKind: TYPE ~ { screen, print, base };

StyleNameForNode: PROC [Tioga.Node] RETURNS [ATOM];

does an ApplyAll and then returns the style name

FlushCaches: PROC;

Style Parameter Extensions

nonNumeric: ERROR; -- raised if call for nonnumeric variable

GetStyleParam: PROC [s: Style, name: ATOM, styleName: ATOM, kind: StyleKind]
RETURNS [REAL];

GetStyleParamI: PUBLIC PROC [s: Style, name: ATOM, styleName: ATOM, kind: StyleKind]
RETURNS [INTEGER];

GetStyleParamObj: PUBLIC PROC [s: Style, name: ATOM, styleName: ATOM, kind: StyleKind]
RETURNS [REF];

Initialization

InitializeDefaultStyle: PROC [suggestedStyle: ROPE];

END.