Copyright Ó 1992 by Xerox Corporation. All rights reserved.

Philip James, September 13, 1991 12:01 pm PDT

Pjames, September 13, 1991 12:10 pm PDT

Willie-s, January 7, 1992 3:05 pm PST

MaintainDefs USING [CmdButton, CmdRef, MyData, SelectorInstance],

Menus USING [MouseButton],

PopUpButtons USING [Image, InstanceSpec],

Rope USING [ROPE],

TiogaOps USING [SearchDir],

ViewerClasses USING [Column, MouseButton],

ViewerTools USING [SelPos],

XNSCredentials USING [XNSCredentialsChangeProc]

;

MyData: TYPE ~ MaintainDefs.MyData;

SelectorInstance: TYPE ~ MaintainDefs.SelectorInstance;

ROPE: TYPE ~ Rope.ROPE;

AnotherProc: PROC [d: MyData, shift: BOOL ¬ FALSE, mb: ViewerClasses.MouseButton ¬ red];

ChangeLevel: PROC [clientData: MyData, value: ATOM];

CmdProc: PROC [o: REF ANY, cr: MaintainDefs.CmdRef, key: REF ANY];

CredentialsChange: XNSCredentials.XNSCredentialsChangeProc;

DisplayThisButton: PROC [d: MyData, cb: MaintainDefs.CmdButton] RETURNS [BOOL];

FixUpMyData: PROC [si: SelectorInstance];

FixUpCase: PROC [r: ROPE] RETURNS[ROPE];

GetDirection: PROC [mb: Menus.MouseButton] RETURNS[sd: TiogaOps.SearchDir ¬ anywhere];

HelpProc: PROC [d: MyData];

ReplaceThisRope: PROC [r, d, n: ROPE, all: BOOL ¬ TRUE, case: BOOL ¬ TRUE, pos: INT ¬ 0] RETURNS [ROPE];

SetServerProc: PROC [d: MyData, atom: ATOM];

ShowCredentials: PROC [d: MyData, leader: ROPE ¬ ""];

StopProc: PROC [d: MyData];

TextLabelProc: PROC [d: MyData, o: REF ANY, button: Menus.MouseButton];

UpdateMapProc: PROC [d: MyData, atom: ATOM];

AmbushInstanceProc: TYPE ~ PROC [o: REF ANY, image: PopUpButtons.Image ¬ NIL, specImage: BOOL ¬ FALSE];

CaretOnlyProc: TYPE ~ PROC;

ChangeLooksProc: TYPE ~ PROC [d: MyData, looks: CHAR];

ComputeColumnProc: TYPE ~ PROC [o: REF ANY];

CreateProc: TYPE ~ PROC [iconic: BOOL ¬ TRUE, column: ViewerClasses.Column ¬ right];

CreateButtonsProc: TYPE ~ PROC [d: MyData];

DestroyObjectProc: TYPE ~ PROC [o: REF ANY, paint: BOOL ¬ FALSE];

GetStreamsProc: TYPE ~ PROC [d: MyData, name: ROPE, backingFile: ROPE, editedStream: BOOLEAN];

GetContentsProc: TYPE ~ PROC [where: REF ANY, default: ROPE ¬ ""] RETURNS [contents: ROPE];

GetSelectedContentsProc: TYPE ~ PROC RETURNS [ROPE];

InhibitEditsProc: TYPE ~ PROC [where: REF ANY];

IsIconicProc: TYPE ~ PROC [o: REF ANY] RETURNS [BOOLEAN];

MoveObjectProc: TYPE ~ PROC [o: REF ANY, x, y, w, h: INT, paint: BOOL ¬ TRUE];

SetContentsProc: TYPE ~ PROC [o: REF ANY, what: ROPE];

SetOpenHeightProc: TYPE ~ PROC [o: REF ANY, hieght: INT];

SetSelectionProc: TYPE ~ PROC [o: REF ANY, selection: ViewerTools.SelPos];

ToSpecProc: TYPE ~ PROC [o: REF ANY] RETURNS [is: PopUpButtons.InstanceSpec];

TypeScriptResetProc: TYPE ~ PROC [where: REF ANY];