DIRECTORYAIS USING [FRef],BasicTime USING [GMT, nullGMT],BiScrollers USING [BiScrollerStyle, TransformGenerator, ExtremaProc],Containers USING [Container],GriffinImageUtils USING [GriffinImage],Imager USING [Context, VEC, Rectangle],ImagerColorOperator USING [ColorOperator],ImagerPixelArray USING [PixelArray],Interpress USING [OpenMaster],PDFileReader USING [Handle],PDImageReader USING [Handle, ImageLink],Real USING [LargestNumber],Rope USING [ROPE],ShowPress USING [Handle],Sliders USING [Slider],ViewerClasses USING [Viewer, NotifyProc, PaintProc, DestroyProc, GetProc];PreView: CEDAR DEFINITIONS = BEGINbsStyle: BiScrollers.BiScrollerStyle;SwitchRange: TYPE = CHAR['A..'Z];Switches: TYPE = PACKED ARRAY SwitchRange OF BOOLEAN;FileType: TYPE = {none, press, pd, ip, ais, griffin};Data: TYPE = REF Rep;Rep: TYPE = RECORD [fileInfo: FileInfo _ NIL,container: Containers.Container _ NIL,preViewer: ViewerClasses.Viewer _ NIL,pageNumberViewer: ViewerClasses.Viewer _ NIL,pageNumberSlider: Sliders.Slider _ NIL,pageNumber: INTEGER _ 1,lastPageNumber: INTEGER _ 1,pageInMem: INTEGER _ 0,-- which page is in iMemContext.iMemContext: Imager.Context _ NIL, -- an ImagerMemory contextpageHeight, pageWidth: REAL _ 0.0,bBox: BBoxState _ NIL,abort: BOOLEAN _ FALSE,process: UNSAFE PROCESS _ NIL,switches: Switches _ ALL[FALSE],stuffWithBorders: BOOLEAN _ FALSE,kind: SELECT type: FileType FROMnone => [],press => [presshandle: ShowPress.Handle _ NIL],pd => [atImage: PDImageReader.ImageLink _ NIL, --set by ResetToImagepageStructure: PDImageReader.ImageLink _ NIL, --set by GetPageStructurepdhandle: PDFileReader.Handle _ NIL,image: PDImageReader.Handle _ NIL,scaleFactors: Imager.VEC _ [x: 1.0, y: 1.0],scalePD: BOOLEAN _ TRUE],ip => [ipMaster: Interpress.OpenMaster _ NIL],ais => [state: AISState _ NIL],griffin => [image: GriffinImageUtils.GriffinImage],ENDCASE];PressData: TYPE = REF press Rep;PDData: TYPE = REF pd Rep;IPData: TYPE = REF ip Rep;AISData: TYPE = REF ais Rep;GData: TYPE = REF griffin Rep;FileInfo: TYPE = REF FileInfoRep;FileInfoRep: TYPE = RECORD [filetype: FileType _ none,fullFName: Rope.ROPE _ NIL,created: BasicTime.GMT _ BasicTime.nullGMT,ref: REF ANY _ NIL];AISState: TYPE = REF AISStateRep;AISStateRep: TYPE = RECORD [openFile: AIS.FRef _ NIL,op: ImagerColorOperator.ColorOperator _ NIL,pa: ImagerPixelArray.PixelArray _ NIL,scans, pixels: NAT _ 0, --lines per page, pixels per lineactive: BOOL _ FALSE];BBoxState: TYPE = REF BBoxStateRep;BBoxStateRep: TYPE = RECORD [active: BOOL _ FALSE,rect: Imager.Rectangle _ [0.0,0.0,0.0,0.0], -- actual bounding rectangle for clippingmode: BBoxMode _ waitingForFirstPoint, -- mode for responding to mouselastX, lastY: REAL _ Real.LargestNumber, -- most recent point acquired from NotifyProcx0, y0: REAL _ 0.0-- first point acquired from NotifyProc];BBoxMode: TYPE = {waitingForFirstPoint, waitingForSecondPoint};BBoxOp: TYPE = {stuff, ipMaster};NameList: TYPE = LIST OF Rope.ROPE;PaintOp: TYPE = {paint, remove, change};DoFileOps: PROC [op: BBoxOp, viewer: ViewerClasses.Viewer, data: Data, fileName: Rope.ROPE, clip: BOOL _ TRUE];ResetProcess: PROC [data: Data];PVFeedback: PROC [data: Data, v: ViewerClasses.Viewer, x, y: REAL _ 0.0, op: PaintOp _ paint];PVNotify: ViewerClasses.NotifyProc;PVPaint: ViewerClasses.PaintProc;PVDestroy: ViewerClasses.DestroyProc;PVGetName: ViewerClasses.GetProc;PVBasicTransformProc: BiScrollers.TransformGenerator;PVExtremaProc: BiScrollers.ExtremaProc;PVListRemove: PROC [ref: REF ANY];END.  (  PreView.mesaLast edited by Ken Pier; May 15, 1986 9:57:28 am PDTThis should be considered a Private interface. See PreViewClient.mesa for public uses. This interface ties together PreViewTool and PreViewImpl, which would be one module if the compiler could handle a module of that size. Э╩  Ц"cedar" styleШ JЪЬЩЪЬ4Щ4JЩ▐ЧunitЪ╧k	Ш	JЪЭЬЭЬШJЪЬ
ЭЬЭЬШJЪЬЭЬ4ШEJЪЬЭЬШJЪЬЭЬШ'JЪЬЭЬЭЬШ'JЪЬЭЬШ*JЪЬЭЬШ$JЪЬЭЬШJЪЬЭЬ
ШJЪЬЭЬШ(JЪЬЭЬШJЪЬЭЬЭЬШJЪЬ
ЭЬ
ШJЪЬЭЬ
ШJЪЬЭЬ7ШJJШ ЧЪ╧nЬЭЬЭЬЭШ"JШ JЪЬ%Ш%JШ JЪЬЭЬЭЬ	Ш!JЪЬ
ЭЬЭЬЭЬЭЬЭЬШ5JЪЬ
ЭЬ'Ш5JЪЬЭЬЭЬШЪЬЭЬЭЬШJЪЬЭЬШJЪЬ"ЭЬШ&JЪЬ"ЭЬШ&JЪЬ)ЭЬШ-JЪЬ#ЭЬШ'IcodeЪЬЭЬШLЪЬЭЬШJЪЬЭЬ╧c Ш7JЪЬЭЬЯШ=LЪЬЭЬШ"LЪЬЭЬШJЪЬЭЬЭЬШJЪЬ	ЭЬЭЬЭЬШJЪЬЭЬЭЬШ JЪЬЭЬЭЬШ"ЪЬЭЬЭШ JШJЪЬ*ЭЬШ/ЪЬШJЪЬ#ЭЬЯШ=JЪЬ)ЭЬЯШGLЪЬ ЭЬШ$JЪЬЭЬШ"JЪЬЭЬШ,JЪЬ	ЭЬЭШJШЧJЪЬ)ЭЬШ.JЪЬЭЬШJШ3JЪЭШЧJЪЬШЧJШ JЪЬЭЬЭЬШ JЪЬЭЬЭЬШJЪЬЭЬЭЬШJЪЬ	ЭЬЭЬ	ШJЪЬЭЬЭЬШJШ JЪЬ
ЭЬЭЬШ!ЪЬЭЬЭЬШJЪЬШJЪЬЭЬЭЬШJЪЬЭЬШ+JЪЬЭЬЭЬЭШJШЧJШ JЪЬ
ЭЬЭЬШ!ЪЬЭЬЭЬШJЪЬ
ЭЬЭЬШJЪЬ(ЭЬШ,JЪЬ"ЭЬШ&JЪЬЭЬЯ!Ш9JЪЬЭЬЭШJШЧJШ JЪЬЭЬЭЬШ#ЪЬЭЬЭЬШJЪЬЭЬЭЬШJЪЬ,Я)ШUJЪЬ'ЯШFJЪЬЭЬЯ-ШVJЪЬЭЬЯ'Ш9JШЧJШ JЪЬ
ЭЬ1Ш?LЪЬЭЬШ!JЪ	Ь
ЭЬЭЬЭЬЭЬШ#JЪЬ	ЭЬШ(JШ LЪ
Ю	ЬЭЬGЭЬЭЬЭЬШoLЪЮЬЭЬШ LЪЮ
ЬЭЬ-ЭЬШ^LЪ╨bnЬШ#LЪаЬШ!LЪ╨an	ЬШ%LЪа	ЬШ!LЪаЬ!Ш5LЪаЬШ'LЪЮЬЭЬЭЬЭЬШ"JШ ЧJЪЭЬШЧ ЕЧ      G  