DIRECTORY Containers, Interpress, Rope, Sliders, ViewerClasses; ShowIP: CEDAR DEFINITIONS = BEGIN Data: TYPE = REF DataRec; DataRec: TYPE = RECORD [ ipMaster: Interpress.OpenMaster, ipContainer: Containers.Container _ NIL, ipViewer: ViewerClasses.Viewer _ NIL, pageNumberViewer: ViewerClasses.Viewer _ NIL, pageNumberSlider: Sliders.Slider _ NIL, pageNumber: INT _ 1, lastPageNumber: INT _ 1, top, height: REAL _ 0.0]; CreateShowViewer: PROC [fileName: Rope.ROPE] RETURNS [ipViewer: ViewerClasses.Viewer]; END. JShowIP.mesa Last edited by Ken Pier; August 26, 1985 6:05:11 pm PDT Κς– "cedar" style˜Jšœ ™ Jšœ7™7unitšΟk ˜ Jšœ5˜5—šœœ˜!J˜—Jšœœœ ˜šœ œœ˜Jšœ ˜ Jšœ$œ˜(Jšœ!œ˜%Jšœ)œ˜-Jšœ#œ˜'Jšœ œ˜Jšœœ˜Jšœ œ˜—KšΟnœœœœ!˜VJ˜Jšœ˜—…—>