ShowPD.mesa
Last edited by Ken Pier; July 11, 1985 2:58:52 pm PDT
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.