Atom USING [GetPropFromList, PutPropOnList],

Graphics USING [Box, Context],

Menus USING [Menu],

Real USING [RoundI],

Rope USING [ROPE],

TIPUser USING [TIPScreenCoords],

ViewerClasses USING [Viewer, ViewerClass, ViewerFlavor, ViewerRec, Column],

ViewerSpecs USING [openBottomY, openLeftWidth];

Let the Viewers package know about a new class of viewer.

Class information from an existing viewer class.

RETURNS [new: Viewer] ;

Create a new viewer instance. Caller may set selected fields in info. If parent # NIL then the new viewer will be recursively embedded in the parent. Do not directly set the following ViewerRec fields (they are either computed or private): cx, cy, cw, ch, visible, destroyed, unUsed, link, position, sibling, child, props

paint: BOOL ← TRUE] ;

Open an icon. If closeOthers then other viewers in that column will first be closed. If bottom then the newly opened icon will be placed at the bottom of the column, otherwise at the top. If paint is FALSE then the caller has the responsibility to repaint the column via ComputeColumn.

Make iconic.

Close all other viewers in the column. Assumes viewer is not iconic.

Move viewer to top of column.

Move viewer to bottom of column.

Move the altered viewer above the static viewer in the column.

Move the altered viewer below the static viewer in the column.

Only meaningful on static or embedded viewers.

Destroy viewer and subordinate children chain.

whatChanged: REF ANY ← NIL] ;

Suggests that the window package repaint the contents of a viewer. The whatChanged field is simply passed through to the client. Note that there is no guarantee that the client's paintProc will actually be called; the viewer could be iconic or currently invisible.

The hint is an accelerator that enables repaint of selective regions of a viewer, as listed in the table below.

all   client & menu & caption & borders & children

client  client (& children if clearClient)

menu  menu portion of header (clearClient ignored)

caption caption portion of header (clearClient ignored)

{IF viewer.class.notify#NIL THEN viewer.class.notify[viewer, input]} ;

Mouse and keyboard TIP notifications.

INLINE {IF viewer.class.set#NIL THEN viewer.class.set[viewer, data, finalise, op]} ;

Set the contents of a viewer.

{RETURN[IF viewer.class.get#NIL THEN viewer.class.get[viewer, op] ELSE NIL]} ;

Get the contents of a viewer.

Save viewer data to file.

Restore viewer data from original file.

Replace a current viewer with a new one. (This proc is intended for wizards). The old viewer is destroyed. The new one should not yet be painted.

Swap positions of an icon and an open viewer.

Move viewer to another column.

Enumerate all top level viewers.

Enumerate all children bottom up.

EnumProc: TYPE = PROC [v: Viewer] RETURNS [BOOL ← TRUE] ;

Locate an instance of a named viewer.

is the viewer visible on the screen?

{viewer.props ← Atom.PutPropOnList[viewer.props, prop, val]} ;

Associate a property with a viewer

{RETURN[Atom.GetPropFromList[viewer.props, prop]]} ;

Get back a property associated with a viewer

Maps viewer-relative coords to screen-relative coords.

Maps screen-relative coords to viewer and viewer-relative coords.

{RETURN[[x, y, x+w, y+h]]};

{RETURN[Real.RoundI[box.xmin], Real.RoundI[box.ymin], Real.RoundI[box.xmax-box.xmin],

{RETURN[v.ch - y]};

Returns coord relative to top given coord relative to bottom of viewer

{RETURN[Top2Bottom[v, y]]};

Returns coord relative to bottom given coord relative to top of viewer

Change a viewer menu.

{IF ~(viewer.newVersion OR viewer.newFile) THEN IndicateNewVersion[viewer]};

Marks a viewer as a new version of the file

IndicateNewVersion: PRIVATE PROC [viewer: Viewer] ;

Marks a viewer as a new file

Set a hint for the WMgr. Should be called from InitProc or when viewer is iconic, otherwise call ComputeColumn to reflect new size on the screen.

Recomputes client info when changing "scrollable", menu, size, etc. This proc is intended for wizards.

Recompute viewer sizes in a column. Useful after calling SetOpenHeight[] on an open viewer.

{RETURN[IF viewer.iconic THEN static ELSE viewer.column]};

Lives in ViewerOpsImpl. Call this from the debugger if you crash and want a "poor man's" crash recovery. Calls the SaveProc of all viewers that have the NewVersion bit set. Catches all signals and attempts to press on.

newBottomY: INTEGER ← openBottomY] ;

Change the position of the vertical separator bar that controls the width of the right and left documents. This interface is intended for wizards.

Repaint the entire screen.

Blinks (inverts twice) a viewer.

If count # 1, wait interval millseconds between blinks.

If count = 0, blink until the icon is opened or another icon is selected.

Blocks further painting attempts and returns when all is quiet.

Enables painting to begin again.

Returns when all is quiet.

Internal monitored reset of context caches; NIL => flush all cached contexts.

Enables viewer operations on the color display. See WindowManager.StartColorViewers for client callable interface.

Back door for menus to invert screen areas faster than normal paint mechanism

Grey an arbitrary rectangle on the black&white or color display.

RETURNS [allocated: Graphics.Context] ;

Allocate and configure a cached context. May raise InvisiblePaint in which case the client must UNWIND, then give up or retry.

InvisiblePaint: SIGNAL ;

Release a context back to the cache.