DIRECTORY FileNames USING [FileWithSearchRules], Imager USING [SetFont, VEC], ImagerBackdoor USING [ClientFromView], ImagerFont USING [Find, Scale], ImagerViewer USING [FancyCreate, ClientDataFromViewer, Erase, GetViewer, Reset], JaM USING [State, SetAbort, Register, PushReal, Execute, ExecuteRope, Stop, TryToLoad, RopeToAtom], JaMImager, JaMImagerContexts, JaMIPrivate, Menus USING [Menu, MenuProc, CreateEntry, CreateMenu, InsertMenuEntry], MessageWindow USING [Blink, Append], Rope USING [Concat, ROPE], TIPUser USING [TIPScreenCoords], ViewerClasses USING [Viewer, ViewerClass, NotifyProc], ViewerOps USING [DestroyViewer] ; JaMIViewerImpl: CEDAR MONITOR LOCKS info USING info: JaMIPrivate.Info IMPORTS FileNames, Imager, ImagerBackdoor, ImagerFont, ImagerViewer, JaM, JaMIPrivate, Menus, MessageWindow, Rope, ViewerOps EXPORTS JaMImager, JaMImagerContexts = BEGIN Info: TYPE = JaMIPrivate.Info; State: TYPE = JaM.State; ROPE: TYPE ~ Rope.ROPE; Create: PUBLIC PROC [state: State, typescript: ViewerClasses.Viewer, iconic: BOOLEAN _ FALSE] RETURNS [viewer: ViewerClasses.Viewer] = { info: Info_ NIL; menu: Menus.Menu; tipTable: ROPE; { -- extra block to make info defined in scope of UNWIND ENABLE UNWIND => -- something went wrong while creating the viewer IF viewer#NIL THEN DestroyViewer[viewer] ELSE IF info#NIL THEN JaMIPrivate.ForgetInfo[state]; IF (info _ JaMIPrivate.GetInfo[state]) # NIL THEN ERROR; info _ JaMIPrivate.CreateInfo[state]; menu _ Menus.CreateMenu[]; Menus.InsertMenuEntry[menu, Menus.CreateEntry["Reset", Reset]]; Menus.InsertMenuEntry[menu, Menus.CreateEntry["Interrupt", InterruptButton]]; Menus.InsertMenuEntry[menu, Menus.CreateEntry["InitDC", InitDCButton]]; info.typescript _ typescript; info.venabled _ TRUE; tipTable _ FullName["JaMImager", "tip", state]; info.vdc _ ImagerViewer.FancyCreate[ info: [data: info, name: Rope.Concat[typescript.name," Imager"], menu: menu, iconic: iconic, scrollable: FALSE], units: pixels, notify: InputNotify, destroy: AboutToDestroy, tipTable: tipTable, clientData: info ]; Imager.SetFont[info.vdc, (info.font_ ImagerFont.Scale[ImagerFont.Find["Xerox/PressFonts/TimesRoman-MRR"], 40])]; viewer _ ImagerViewer.GetViewer[info.vdc]; info.viewer _ viewer; Register[state]; JaMIPrivate.RegisterImager[state]; JaMIPrivate.RegisterColor[state]; JaMIPrivate.RegisterInterpress[state]; JaMIPrivate.RegisterVector2[state]; }}; FullName: PROC [name, extension: ROPE, self: State] RETURNS [fullName: ROPE] = { rules: REF ANY; found: BOOL; [found, rules] _ JaM.TryToLoad[self, JaM.RopeToAtom[".searchrules"]]; IF ~found THEN rules _ NIL; [fullName,] _ FileNames.FileWithSearchRules[root: name, defaultExtension: extension, requireExtension: FALSE, requireExact: FALSE, searchRules: rules]; IF fullName=NIL THEN RETURN [NIL] ELSE RETURN[fullName]; }; Reset: Menus.MenuProc = { viewer: ViewerClasses.Viewer _ NARROW[parent]; info: Info _ NARROW[ImagerViewer.ClientDataFromViewer[viewer]]; ImagerViewer.Erase[info.vdc]; }; InterruptButton: Menus.MenuProc = { viewer: ViewerClasses.Viewer _ NARROW[parent]; info: Info _ NARROW[ImagerViewer.ClientDataFromViewer[viewer]]; state: State _ info.state; JaM.SetAbort[state,TRUE]; SetPlace[info,0,0]; SetBug[info,0,0] }; InitDCButton: Menus.MenuProc = { viewer: ViewerClasses.Viewer _ NARROW[parent]; info: Info _ NARROW[ImagerViewer.ClientDataFromViewer[viewer]]; state: State _ info.state; InitDC[state]; }; DestroyViewer: PROC [viewer: ViewerClasses.Viewer] = { AboutToDestroy[viewer]; ViewerOps.DestroyViewer[viewer]; }; AboutToDestroy: PROC [self: ViewerClasses.Viewer] = { info: Info _ NARROW[ImagerViewer.ClientDataFromViewer[self]]; JaMIPrivate.ForgetInfo[info.state]; }; InitDC: PROCEDURE [state: State] = { info: Info _ JaMIPrivate.GetInfo[state]; IF info.venabled THEN { ImagerViewer.Reset[info.vdc]; }; FOR l: JaMImagerContexts.DCList _ info.dcList, l.next UNTIL l=NIL DO IF l.enabled THEN l.dc _ l.callMe[l.dc, initdc]; ENDLOOP; }; Erase: PROCEDURE [state: State] = { info: Info _ JaMIPrivate.GetInfo[state]; IF info.venabled THEN { ImagerViewer.Erase[info.vdc]; }; FOR l: JaMImagerContexts.DCList _ info.dcList, l.next UNTIL l=NIL DO IF l.enabled THEN l.dc _ l.callMe[l.dc, erase]; ENDLOOP; }; EnableViewer: PUBLIC PROC [state: State] = { JaMIPrivate.GetInfo[state].venabled _ TRUE; }; DisableViewer: PUBLIC PROC [state: State] = { JaMIPrivate.GetInfo[state].venabled _ FALSE; }; Mouse: PROC [state: State] = { x,y: REAL; [x,y] _ GetPlace[JaMIPrivate.GetInfo[state]]; JaM.PushReal[state, x]; JaM.PushReal[state, y] }; Touch: PROC [state: State] = { x,y: REAL; [x,y] _ GetBug[JaMIPrivate.GetInfo[state]]; JaM.PushReal[state, x]; JaM.PushReal[state, y] }; GetBug: ENTRY PROC [info: Info] RETURNS[x,y: REAL] = { OPEN info; ENABLE UNWIND => NULL; bugflag _ FALSE; UNTIL viewer.destroyed OR bugflag DO WAIT bugged ENDLOOP; IF viewer.destroyed THEN x _ y _ 0 ELSE { x _ bugX; y _ bugY; bugflag _ FALSE }; }; SetBug: PUBLIC ENTRY PROC [info: Info, x,y: REAL] = { OPEN info; ENABLE UNWIND => NULL; bugflag _ TRUE; bugX _ x; bugY _ y; NOTIFY bugged }; GetPlace: ENTRY PROC [info: Info] RETURNS[x,y: REAL] = { OPEN info; ENABLE UNWIND => NULL; mouseflag _ FALSE; UNTIL viewer.destroyed OR mouseflag DO WAIT mouse ENDLOOP; IF viewer.destroyed THEN x _ y _ 0 ELSE { x _ mouseX; y _ mouseY; mouseflag _ FALSE }; }; SetPlace: ENTRY PROC [info: Info, x,y: REAL] = { OPEN info; ENABLE UNWIND => NULL; mouseflag _ TRUE; mouseX _ x; mouseY _ y; NOTIFY mouse; }; DoAtom: PROC [state: State, atom: ATOM] = { JaM.Execute[state, atom ! JaM.Stop => CONTINUE]; }; DoButton: PROC [state: State, button: ATOM, x,y: REAL] = { JaM.PushReal[state, x]; JaM.PushReal[state, y]; SELECT button FROM $RedDown, $CtrlRedDown, $ShiftRedDown, $CtrlShiftRedDown => JaM.ExecuteRope[state,".reddown" ! JaM.Stop => CONTINUE]; $YellowDown, $CtrlYellowDown, $ShiftYellowDown, $CtrlShiftYellowDown => JaM.ExecuteRope[state,".yellowdown" ! JaM.Stop => CONTINUE]; $BlueDown, $CtrlBlueDown, $ShiftBlueDown, $CtrlShiftBlueDown => JaM.ExecuteRope[state,".bluedown" ! JaM.Stop => CONTINUE]; $Track, $CtrlTrack, $ShiftTrack, $CtrlShiftTrack => JaM.ExecuteRope[state,".track" ! JaM.Stop => CONTINUE]; $RedUp, $CtrlRedUp, $ShiftRedUp, $CtrlShiftRedUp => JaM.ExecuteRope[state,".redup" ! JaM.Stop => CONTINUE]; $YellowUp, $CtrlYellowUp, $ShiftYellowUp, $CtrlShiftYellowUp => JaM.ExecuteRope[state,".yellowup" ! JaM.Stop => CONTINUE]; $BlueUp, $CtrlBlueUp, $ShiftBlueUp, $CtrlShiftBlueUp => JaM.ExecuteRope[state,".blueup" ! JaM.Stop => CONTINUE]; ENDCASE => ERROR; }; InputNotify: PUBLIC ViewerClasses.NotifyProc = { mx, my: INTEGER; x, y: REAL_ 0.0; FOR l: LIST OF REF ANY _ input, l.rest UNTIL l = NIL DO WITH l.first SELECT FROM z: ATOM => SELECT z FROM $RedDown, $CtrlRedDown, $ShiftRedDown, $CtrlShiftRedDown => { info: Info _ NARROW[ImagerViewer.ClientDataFromViewer[self] ,Info]; SetBug[info,x,y]; SetPlace[info,x,y]; DoButton[info.state,z,x,y]; }; $YellowDown, $CtrlYellowDown, $ShiftYellowDown, $CtrlShiftYellowDown, $BlueDown, $CtrlBlueDown, $ShiftBlueDown, $CtrlShiftBlueDown, $Track, $CtrlTrack, $ShiftTrack, $CtrlShiftTrack, $RedUp, $CtrlRedUp, $ShiftRedUp, $CtrlShiftRedUp, $YellowUp, $CtrlYellowUp, $ShiftYellowUp, $CtrlShiftYellowUp, $BlueUp, $CtrlBlueUp, $ShiftBlueUp, $CtrlShiftBlueUp => DoButton[NARROW[ImagerViewer.ClientDataFromViewer[self], Info].state, z, x, y]; $Place => SetPlace[NARROW[ImagerViewer.ClientDataFromViewer[self], Info],x,y]; ENDCASE => DoAtom[NARROW[ImagerViewer.ClientDataFromViewer[self], Info].state, z]; z: TIPUser.TIPScreenCoords => { p, v: Imager.VEC; [mx, my, -- color -- ] _ z^; p.x_ mx; p.y_ my; v_ ImagerBackdoor.ClientFromView[ NARROW[ImagerViewer.ClientDataFromViewer[self], Info].vdc, p]; x_ v.x; y_ v.y}; ENDCASE => { MessageWindow.Blink[]; MessageWindow.Append["unknown TIP Atom (JaMImager)", TRUE]; }; ENDLOOP; }; Register: PROC[state: State] = { JaM.Register[state,".initdc",InitDC]; JaM.Register[state,".erase",Erase]; JaM.Register[state,".enableviewer",EnableViewer]; JaM.Register[state,".disableviewer",DisableViewer]; JaM.Register[state,".mouse", Mouse]; JaM.Register[state,".touch",Touch]; }; END... „JaMIViewerImpl.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Last change by Bill Paxton, October 5, 1982 3:19 pm Last change by McGregor, June 15, 1982 10:05 am Last Edited by: Stone, September 6, 1984 3:53:00 pm PDT Tim Diebert: October 11, 1985 2:39:05 pm PDT JReloadTIP: PROC [state: State] = { ReloadTIP[] }; ReloadTIP: PUBLIC PROC = { jamImagerClass.tipTable _ TIPUser.InstantiateNewTIPTable["JaMImager.TIP"] }; generic proc for TIP atoms. Normal TIP table never comes here all the *Down, *Up and *Track atoms [self: ViewerClasses.Viewer, input: LIST OF REF ANY] JaM.Register[state,".reloadTIP",JReloadTIP]; Κω˜codešœ™Kšœ Οmœ1™˜PKšœžœZ˜cK˜ K˜K˜ Kšœžœ<˜GKšœžœ˜$Kšœžœ žœ˜Kšœžœ˜ Kšœžœ#˜6Kšœ žœ˜K˜K˜—šΠlnœž ˜Kšžœžœ˜'Kšžœu˜|Kšžœ˜&Kšž˜K˜Kšœžœ˜Kšœžœ ˜šžœžœžœ˜K˜—KšΟn œžœ"™2K˜š  œžœžœ™K™LK™—š  œžœžœ:žœžœ˜]Kšžœ#˜*Kšœ žœ˜K˜Kšœ žœ˜KšœΟc6˜8šžœžœ‘1˜BKšžœžœžœ˜(Kšžœžœžœžœ˜4—Kšžœ'žœžœžœ˜8Kšœ%˜%K˜K˜?K˜MK˜GK˜Kšœžœ˜Kšœ/˜/šœ$˜$˜Kšœ9˜9Kšœžœ˜#—Kšœa˜aKšœ˜—Kšœp˜pKšœ*˜*K˜K˜K˜"Kšœ!˜!Kšœ&˜&Kšœ#˜#K˜K˜—š  œžœžœžœ žœ˜PKšœžœžœ˜Kšœžœ˜ K˜EKšžœžœ žœ˜Kšœgžœžœ˜—Kšžœ žœžœžœžœžœžœ ˜8K˜K˜—šœ˜Kšœžœ ˜.Kšœ žœ,˜?J˜K˜K˜—šœ$˜$Kšœžœ ˜.Kšœ žœ,˜?K˜Kšœžœžœ˜K˜K˜K˜—šœ!˜!Kšœžœ ˜.Kšœ žœ,˜?K˜K˜K˜K˜—š  œžœ#˜6K˜K˜ K˜K˜—š œžœ"˜6Kšœ žœ*˜=K˜#K˜K˜—š œž œ˜$K˜(šžœžœ˜Kšœ˜K˜—šžœ3žœžœž˜DKšžœ žœ ˜1Kšžœ˜—K˜K˜—š œž œ˜#K˜(šžœžœ˜Kšœ˜K˜—šžœ3žœžœž˜DKšžœ žœ˜0Kšžœ˜—K˜K˜—š  œž œ˜,Kšœ&žœ˜+K˜K˜—š  œž œ˜-Kšœ&žœ˜,K˜K˜—š œžœ˜Kšœžœ˜ Kšœ-˜-K˜K˜K˜K˜—š œžœ˜Kšœžœ˜ Kšœ+˜+K˜K˜K˜K˜—š  œžœžœžœžœžœ˜AKšžœžœžœ˜Kšœ žœ˜Kš žœžœ žœžœžœ˜9Kšžœžœ ˜"Kšžœ!žœ˜-K˜K˜—š  œžœžœžœžœžœ˜@Kšžœžœžœ˜Kšœ žœ˜#Kšžœ ˜K˜—š  œžœžœžœžœžœ˜CKšžœžœžœ˜Kšœ žœ˜Kš žœžœ žœžœžœ˜:Kšžœžœ ˜"Kšžœ'žœ˜3K˜K˜—š  œžœžœžœžœ˜;Kšžœžœžœ˜Kšœ žœžœ˜7K˜K˜—Kš œžœžœ˜+šœ>™>Kšœ&žœ˜0K˜K˜—Kš œžœžœžœ˜:šœ#™#K˜K˜šžœž˜šœ˜KšœTžœ˜^—šœ˜Kšœ\žœ˜f—šœ˜KšœVžœ˜`—šœ˜KšœMžœ˜W—šœ˜KšœMžœ˜W—šœ˜KšœVžœ˜`—šœ˜KšœPžœ˜Z—Kšžœžœ˜—K˜—K˜Kšœ4™4šœ žœ˜1Kšœžœ˜Kšœžœ˜šžœžœžœžœžœžœžœž˜7šžœ žœž˜šœžœžœž˜˜=Kšœ žœ0˜CKšœ˜Kšœ˜Kšœ˜Kšœ˜—K˜FK˜=K˜1K˜1K˜=šœ7˜7Kšœ žœA˜P—Kšœžœ5˜NKšžœ žœ;˜T—šœ-žœ˜1Kšœ ‘ œ˜.Kšœ!žœI˜q—šžœ˜ Kšœ˜Kšœ5žœ˜;Kšœ˜——Kšžœ˜—K˜K˜—š œžœ˜ Kšœ%˜%Kšœ#˜#Kšœ,™,Kšœ1˜1Kšœ3˜3Kšœ$˜$Kšœ#˜#K˜—K˜K˜Kšžœ˜K˜——…—ΰ+]