ShowIP.mesa
Last edited by Ken Pier; August 26, 1985 6:05:11 pm PDT
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.