DIRECTORY Containers, Rope, Rules, PDFileReader, PDReaderPage, Sliders, ViewerClasses; ShowPD: DEFINITIONS = BEGIN ShowData: TYPE = REF ShowDataRec; ShowDataRec: TYPE = RECORD [ show: PDFileReader.Handle _ NIL, image: PDReaderPage.Handle _ NIL, pdContainer: Containers.Container _ NIL, pdViewer: ViewerClasses.Viewer _ NIL, pageNumberViewer: ViewerClasses.Viewer _ NIL, pageNumberSlider: Sliders.Slider _ NIL, pageNumber: INT _ 1, lastPageNumber: INT _ 1, atPage: PDReaderPage.PageRecRef _ NIL, pageStructure: PDReaderPage.PageRecRef _ NIL, top, height: REAL _ 0.0, scaleFactor: REAL _ 1.0, clearClient: BOOLEAN_FALSE, abortPainting: BOOLEAN_FALSE ]; CreateShowViewer: PROC[fileName: Rope.ROPE, reduction: REAL _ 1.0] RETURNS[pdViewer: ViewerClasses.Viewer]; END. HShowPD.mesa Last edited by Ken Pier; July 11, 1985 2:58:52 pm PDT ΚB– "cedar" style˜Jšœ ™ Jšœ5™5unitšΟk ˜ JšœL˜L—šœ œ˜J˜—Jšœ œœ ˜!šœ œœ˜Jšœœ˜ Jšœœ˜!Jšœ$œ˜(Jšœ!œ˜%Jšœ)œ˜-Jšœ#œ˜'Jšœ œ˜Jšœœ˜Jšœ"œ˜&Jšœ)œ˜-Jšœ œ˜Jšœ œ˜Jšœ œ˜Jšœœœ˜—Kš Οnœœœ œœ!˜kJ˜Jšœ˜—…—Š