PipalDisplay.mesa
Copyright Ó 1988 by Xerox Corporation. All rights reserved.
Louis Monier January 29, 1988 5:39:33 pm PST
Bertrand Serlet January 31, 1988 6:53:31 pm PST
DIRECTORY Menus, Pipal, PipalEdit, BiScrollers, RefTab, ViewerClasses;
PipalDisplay: CEDAR DEFINITIONS = BEGIN
Theory
How to paint Pipal data structures onto the display. By extension anything related to the user-interface.
Temporary Functions ...
Viewers and BiScroller Creation
CreateObjectViewer:
PROC [object: Pipal.Object]
RETURNS [viewer: ViewerClasses.Viewer];
CreateEditorBiscroller:
PROC [editor: PipalEdit.Editor, tipTable: Pipal.
ROPE, menu: Menus.Menu ←
NIL]
RETURNS [bs: BiScrollers.BiScroller];
TipTables and PipalEdit.CommandProcs
The TIPTable returns a list of items.
If the first element is an atom known to PipalDIsplay, there is a special treatement. Following is the syntax for special treatments:
$DownCoords, Coords => mouseDown ← Coords
$TrackSelected, Coords => The message $SelectedOutlines is passed to the editor and treated appropriately
Otherwise, the list is translated and passed to the editor. The translation recognizes the following:
$DownCoords => mouseDown
Coords => mouseNow
END.