DIRECTORY Commander, Imager, TIPUser, ViewerClasses, ViewerOps;SimpleViewerImpl: CEDAR PROGRAMIMPORTS Commander, Imager, TIPUser, ViewerOps~ BEGINViewer: TYPE ~ ViewerClasses.Viewer;Data: TYPE ~ REF DataRec;DataRec: TYPE ~ RECORD [viewer: Viewer _ NIL,x, y: REAL _ 10];SimpleViewer: Commander.CommandProc ~ {data: Data _ NEW[DataRec];data.viewer _ ViewerOps.CreateViewer[flavor: $SimpleViewer,info: [name: "SimpleViewer", data: data]];ViewerOps.GrowViewer[data.viewer];ViewerOps.OpenIcon[data.viewer];};PaintSimpleViewer: ViewerClasses.PaintProc = {data: Data _ NARROW[self.data];Imager.SetColor[context, Imager.black];Imager.MaskRectangle[context, [data.x, data.y, 10, 10]];};NotifySimpleViewer: ViewerClasses.NotifyProc = {data: Data _ NARROW[self.data];mouse: TIPUser.TIPScreenCoords _ NARROW[input.first];SELECT input.rest.first FROM$move => {data.x _ mouse.mouseX;data.y _ mouse.mouseY;ViewerOps.PaintViewer[self, client]};ENDCASE => NULL;};AdjustSimpleViewer: ViewerClasses.AdjustProc ~ {ViewerOps.GrowViewer[self];};ViewerOps.RegisterViewerClass[$SimpleViewer,NEW[ViewerClasses.ViewerClassRec _ [paint: PaintSimpleViewer,notify: NotifySimpleViewer,adjust: AdjustSimpleViewer,tipTable: TIPUser.InstantiateNewTIPTable["SimpleViewer.tip"]]]];Commander.Register["///Commands/SimpleViewer", SimpleViewer, "Demonstrate viewer code"];END.  ^  -- SimpleViewerImpl.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Bloomenthal, September 24, 1986 3:25:01 pm PDTNotesModification Cycle:Edit SimpleViewerImpl.mesa.Compile SimpleViewerImpl.mesa.Bind SimpleViewerPackage.config.Run SimpleViewerPackage.bcd.To the commander, type "SimpleViewer".If you wish to save your changes, first change all the file and module names,indicate the changes in the df file, then smodel and verify the df file.The UsingLister program can, if you wish, help you fill in the directory USING fields.Type DeclarationsProceduresStart CodeÊ  ˜ ™Jšœ
Ïmœ1™<J™.—J™ JšÏk	œ6˜?J˜ šÐlnœžœž˜Jšžœ&˜-J˜ —Jšœž˜head™™J™J™J™ J™J™&—J™ J™MJ™HJ™ J™V—™Jšœžœ˜$J˜ Jšœžœžœ	˜šœžœžœ˜Jšœžœ˜Jšœžœ˜J˜——™
šÏnœ˜'Jšœžœ
˜J˜ •StartOfExpansion¿[flavor: ViewerClasses.ViewerFlavor, info: ViewerClasses.ViewerRec _ [class: NIL, wx: 0, wy: 0, ww: 0, wh: 0, cx: 0, cy: 0, cw: 0, ch: 0, lock: [process: PROCESS#0B, count: 0B (0)], tipTable: NIL, name: NIL, file: NIL, label: NIL, menu: NIL, icon: 177777B?, column: left, caption: FALSE, scrollable: TRUE, hscrollable: FALSE, iconic: TRUE, border: TRUE, newVersion: FALSE, newFile: FALSE, visible: TRUE, offDeskTop: FALSE, destroyed: FALSE, init: FALSE, saveInProgress: FALSE, inhibitDestroy: FALSE, guardDestroy: FALSE, paintingWedged: FALSE, ...], paint: BOOL _ TRUE]šœ%˜%Jšœ˜Jšœ*˜*—Jšœ"˜"Jšœ ˜ J˜J˜ —–y -- [self: ViewerClasses.Viewer, context: Imager.Context, whatChanged: REF ANY, clear: BOOL] RETURNS [quit: BOOL _ FALSE]š œ˜.Jšœžœ˜J˜ J˜'J˜8J˜J˜ —–8 -- [self: ViewerClasses.Viewer, input: LIST OF REF ANY]š œ˜0Jšœžœ˜Jšœ!žœ˜5J˜ šžœž˜šœ
˜
Jšœ˜Jšœ˜Jšœ#˜#J˜—Jšžœžœ˜—J˜J˜ —šÏbœ˜0J˜J˜——™
šœ˜Jšœ˜šžœ!˜$Jšœ˜Jšœ˜Jšœ˜Jšœ<˜<Jšœ˜—Jšœ˜J˜ —JšœX˜X—J˜ Jšžœ˜— …—    v  ñ  