BiScrollersExtras2.mesa
Copyright Ó 1992 by Xerox Corporation. All rights reserved.
Last tweaked by Mike Spreitzer on October 23, 1991 11:12 am PDT
Something I later realized should be in the main interface.
DIRECTORY BiScrollers, Imager, ViewerClasses;
BiScrollersExtras2: CEDAR DEFINITIONS =
BEGIN OPEN BiScrollers;
Here are more procedures to create standard buttons:
CreateDraw: PROC [viewerInfo: ViewerClasses.ViewerRec, bs: BiScroller, font: Imager.Font ¬ NIL] RETURNS [button: Viewer];
ToIP: PUBLIC PROC [bs: BiScroller, fileName, defaultExtension: ROPE ¬ NIL] RETURNS [writtenName: ROPE, width, height: REAL];
END.