DIRECTORY Icons USING [IconFlavor], Rope USING [ROPE], ViewerClasses USING [Viewer, ViewerFlavor], ViewerTools USING [TiogaContents]; WhiteboardViewers: CEDAR DEFINITIONS = BEGIN OPEN Rope; Viewer: TYPE = ViewerClasses.Viewer; wb: READONLY ViewerClasses.ViewerFlavor; icon: READONLY ViewerClasses.ViewerFlavor; text: READONLY ViewerClasses.ViewerFlavor; SetMenu: PROC[v: Viewer]; AddTextBox: PROCEDURE[wb: Viewer, x, y, w, h: INTEGER, contents: ViewerTools.TiogaContents] RETURNS[child: Viewer]; AddIcon: PROCEDURE[wb: Viewer, name: ROPE, icon: Icons.IconFlavor, x, y: INTEGER] RETURNS[child: Viewer]; InvertIcon: PROC[icon: Viewer, paint: BOOL _ TRUE]; GetGrid: PROC[v: Viewer] RETURNS[grid: INT]; SetGrid: PROC[v: Viewer, grid: INT]; ResetGrid: PROC[v: Viewer, grid: INT]; MoveChild: PROCEDURE[child: Viewer]; GrowBox: PROCEDURE[wb, box: Viewer, x, y: INTEGER]; NearestChild: PROCEDURE[wb: Viewer, x, y: INTEGER, type: ViewerClasses.ViewerFlavor _ NIL] RETURNS[nearest: Viewer]; Expand: PROC[parent, wb: Viewer, wbList: LIST OF ROPE]; DontLog: PROC[icon: Viewer] RETURNS [BOOLEAN]; SetWBName: PROC[wb: Viewer, name: ROPE, paint: BOOLEAN _ TRUE]; END... ®File: WhiteboardViewers.mesa Copyright (C) 1984 by Xerox Corporation. All rights reserved. Created by: Donahue, January 4, 1985 1:33:07 pm PST The interface to the Viewer manipulations of whiteboards. Last Edited by: Winkler, December 18, 1984 11:00:08 am PST the ViewerFlavor of whiteboards the ViewerFlavor of icons appearing on whiteboards the ViewerFlavor of text boxes appearing on whiteboards Set the menu of the viewer to be the standard whiteboard menu Create a new whiteboard text box with the specified contents, but don't paint it. Create a new icon, but don't paint it. Invert the mode used to paint the icon (this can be used when opening an icon to suggest that it may take some time) Return the current grid setting for a whiteboard. Change the current grid setting. Start with a fresh grid setting. Move an object around on the whiteboard. Grow or shrink a whiteboard text box. Produces the whiteboard viewer closest to the x, y position of the whiteboard wb. Displays the listed whiteboards in the parent viewer, with lines drawn from the viewer for wb. No logging is done for the viewers added. If this icon was added to the whiteboard as the result of an Expand operation, then DontLog will return TRUE -- the idea is that such expansions are not to be logged as permanent changes to the containing whiteboard (they reflect only the current state of affairs) Set the name of a whiteboard viewer to be "Whiteboard: ". ÊY˜Jšœ™Jšœ=™=Jšœ3™3J™J™9J™:J˜šÏk ˜ Jšœœ˜Jšœœœ˜Jšœœ˜+Jšœ œ˜"J˜—šœœ œ˜&Jš œ˜—J˜Jšœœ˜$J˜šœœ˜(Jšœ™—J˜šœœ˜*Jšœ2™2—J˜šœœ˜*Jšœ7™7—J˜šÏnœœ ˜Jšœ=™=—J˜šž œ œœ'œ˜sJ™Q—J˜š žœ œœ œœ˜iJ™&—J˜šž œœœœ˜3Jšœt™t—J˜šžœœ œœ˜,J™2—J˜šžœœœ˜$J™ —J˜šž œœœ˜&J™ —J˜šž œ œ˜$J™(—J˜šžœ œœ˜3J™%—J˜š ž œ œœ%œœ˜tJ™Q—J˜š žœœœœœ˜7J™‰—J™šžœœœœ˜.J™ˆ—J˜š ž œœœ œœ˜?J™?—J™Jšœ˜J˜—…—š ¡