TiogaActive.mesa
Copyright Ó 1989, 1990, 1992 by Xerox Corporation. All rights reserved.
Goodisman, August 2, 1989 10:04:16 pm PDT
Bier, June 29, 1990 10:59 pm PDT
Doug Wyatt, April 13, 1992 2:01 pm PDT
DIRECTORY
EBTypes, Rope, ViewerClasses;
TiogaActive: CEDAR DEFINITIONS = BEGIN
ActiveDoc: TYPE ~ EBTypes.ActiveDoc;
Viewer: TYPE ~ ViewerClasses.Viewer;
GetButtonContents:
PROC [button: EBTypes.ActiveButton]
RETURNS [Rope.
ROPE];
Get the textual contents of the button.
LookupDoc:
PROC [viewer: Viewer]
RETURNS [doc: ActiveDoc];
Find the active document data associated with each viewer.
Interpret: PROC [tiogaViewer: Viewer, button: EBTypes.ActiveButton, doc: EBTypes.ActiveDoc, events: LIST OF REF];
END.