[_CDMiwok_01_]<cedarcommon2.0>BiScrollers>BiScrollersExtras2.mesa!1

BiScrollersExtras2.mesa

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.