DIRECTORY   CD,CDBasics,CDCells, CDImports, CDOldInterestRects,CDIO,CDRepetitions,CDProperties,TokenIO;  CDOldInterestRectsImpl: CEDAR PROGRAM IMPORTS CD, CDBasics, CDCells, CDImports, CDIO, CDProperties, CDRepetitions, TokenIOEXPORTS CDOldInterestRects =BEGINSetInterestProc: TYPE = PROC [ob: CD.Object, r: CD.Rect];AdjustInterest: PUBLIC PROC [h: TokenIO.Handle, ob: CD.Object] = {IF ob.class.mutable AND CDIO.VersionKey[h]<8 THEN {WITH CDProperties.GetObjectProp[from: ob, prop: interestRectProperty] SELECT FROMpp: REF CD.Rect => {IF CDBasics.NonEmpty[pp^] THEN SetInterest[ob, pp^];CDProperties.PutProp[ob, interestRectProperty, NIL];};ENDCASE => NULL;};};InternalReadProperty: PROC [h: TokenIO.Handle, prop: ATOM] RETURNS [val: REF] = {x1: INT = TokenIO.ReadInt[h];y1: INT = TokenIO.ReadInt[h];x2: INT = TokenIO.ReadInt[h];y2: INT = TokenIO.ReadInt[h];val _ NEW[CD.Rect_[x1, y1, x2, y2]]};InsideRect: PUBLIC PROC [ob: CD.Object] RETURNS [CD.Rect] = {RETURN [CD.InterestRect[ob]]};SetInterest: SetInterestProc = {RepOldSetInterest: PROC [ob: CD.Object, r: CD.Rect] = {cptr: CDRepetitions.RepSpecific = NARROW[ob.specific];cptr.ir _ r;};ImpOldSetInterest: PROC [ob: CD.Object, r: CD.Rect] = {cptr: CDImports.ImportSpecific = NARROW[ob.specific];cptr.ir _ r;};CellOldSetInterest: PROC [ob: CD.Object, r: CD.Rect] = {cptr: CD.CellSpecific = NARROW[ob.specific];cptr.ir _ r;};IF CDCells.IsCell[ob] THEN CellOldSetInterest[ob, r]ELSE IF CDImports.IsImport[ob] THEN ImpOldSetInterest[ob, r]ELSE IF CDRepetitions.IsRepetition[ob] THEN RepOldSetInterest[ob, r]ELSEWITH CDProperties.GetProp[ob.class.properties, $SetInterestProc] SELECT FROMsp: REF SetInterestProc => sp^[ob, r];ENDCASE => NULL;};InstallOldSetInterest: PROC [type: REF CD.ObjectClass, proc: SetInterestProc] = {CDProperties.PutProp[onto: type, prop: $SetInterestProc, val: NEW[SetInterestProc_proc]];};InternalReadOrigin: PROC [h: TokenIO.Handle, prop: ATOM] RETURNS [val: REF] = {x: INT = TokenIO.ReadInt[h];y: INT = TokenIO.ReadInt[h];val _ NIL};originProperty: ATOM = $origin;interestRectProperty: ATOM = $interestRect;[] _ CDProperties.RegisterProperty[interestRectProperty];CDProperties.InstallProcs[prop: interestRectProperty, procs: CDProperties.PropertyProcsRec[makeCopy: CDProperties.DontCopy,internalRead: InternalReadProperty,exclusive: TRUE]];[] _ CDProperties.RegisterProperty[originProperty];CDProperties.InstallProcs[prop: originProperty, procs: CDProperties.PropertyProcsRec[makeCopy: CDProperties.DontCopy, internalRead: InternalReadOrigin,exclusive: TRUE]];[] _ CDProperties.RegisterProperty[$SetInterestProc];END.   d  CDOldInterestRectsImpl.mesa Copyright c 1984, 1985, 1986 by Xerox Corporation.  All rights reserved.Created by: Christian Jacobi, September 13, 1984 3:21:36 pm PDTLast edited by: Christian Jacobi, September 23, 1986 4:21:17 pm PDTWITH ob.specific SELECT FROMcp: CD.CellSpecific => RETURN [cp.dIr];ENDCASE => RETURN [CD.InterestRect[ob]];??? Э╩?  Ш ЪЬЩJЪЬ
╧mЬ=ЩHJЩ?IcodeЩCЧJШ Ъ╧k	ЬШJЪЮЬШJЪЬ	Ш	JЪЬ	Ш	JЪЬШJЪЬШJЪЬШJЪЬШJЪЬШJЪЬ
Ш
JШ ЧЪ╧bЬЮЬЮЬШ&JЪЮЬMШTJЪЮЬШЧJЪЮШJШ JЪ	ЬЮЬЮЬЮЬЮЬШ9JШ Ъ╧nЬЮЬЮЬЮЬШBЪЮЬЮЬЮЬЮЬШ3ЪЮЬBЮЬЮШQЪЬЮЬЮЬ
ШJЪЮЬЮЬШ4JЪЬ/ЮЬШ4JШЧJЪЮЬЮЬШЧJШЧJЪЬШЧЪ
аЬЮЬЮЬЮЬЮЬШQJЪЬЮЬШJЪЬЮЬШJЪЬЮЬШJЪЬЮЬШJЪЬЮЬЮЬШ#JЪЬШЧJШ Ъа
ЬЮЬЮЬЮЬ	ЮЬЮЬ
Ш=ЪЮЬЮЬЮЩJЪЬЮЬЮЬ
Щ'JЪЮЬЮЬЮЬЩ(ЧJЪЬЩJЪЮЬЮЬШJЪЬШJЩ ЧЪЯЬШ KШ ЪаЬЮЬЮЬЮЬ
Ш7KЪЬ"ЮЬШ6KЪЬШKЪЬШKШ ЧЪаЬЮЬЮЬЮЬ
Ш7KЪЬ!ЮЬШ5KЪЬШKЪЬШKШ ЧЪаЬЮЬЮЬЮЬ
Ш8KЪЬЮЬЮЬШ,KЪЬШKЪЬШKШ ЧJЪЮЬЮЬШ4JЪЮЬЮЬЮЬШ<JЪЮЬЮЬ ЮЬШDЪЮШЪЮЬ=ЮЬЮШLJЪЬЮЬШ&JЪЮЬЮЬШЧЧJЪЬШЧJШ ЪаЬЮЬЮЬЮЬ(ШQJЪЬ>ЮЬШYJЪЬШЧJШ Ъ
аЬЮЬЮЬЮЬЮЬШOJЪЬЮЬШJЪЬЮЬШJЪЬЮШ	JЪЬШЧJШ JЪЬЮЬШJЪЬЮЬШ+JЪЬ9Ш9ЪЬ6Ш6ЪЬ%Ш%JЪЬ Ш JЪЬ#Ш#JЪЬЮШJЪЬШЧJЪЬШЧJЪЬ3Ш3ЪЬ0Ш0ЪЬ%Ш%JЪЬ!Ш!JЪЬ!Ш!JЪЬЮШJЪЬШЧJЪЬШЧJЪЬ5Ш5JЪЮЬШJШ JШ Ч ЕЧ    
И  +  