DIRECTORYTEditDisplay USING [EstablishLine],TEditDocument USING [LineTable, Selection, SelectionRec, SpinAndLock, TEditDocumentData, Unlock],TEditOps USING [CopyLoadHistory, CopyPositionHistory],TEditSplit,TextNode USING [Location, pZone],ViewerClasses USING [Viewer],ViewerOps USING [AddProp, ComputeColumn, CreateViewer, DestroyViewer, FetchProp,MoveBelowViewer, OpenIcon, SetMenu];TEditSplitImpl: CEDAR PROGRAMIMPORTS TEditDisplay, TEditDocument, TEditOps, TextNode, ViewerOpsEXPORTS TEditSplitSHARES ViewerClasses =BEGIN OPEN ViewerClasses;Split: PUBLIC PROC [old: Viewer] = BEGINtddNew, tddOld: TEditDocument.TEditDocumentData;new: Viewer;selectionHistory: TEditDocument.Selection;lines: TEditDocument.LineTable;loc: TextNode.Location;tddOld _ NARROW[old.data];IF tddOld = NIL THEN RETURN;new _ ViewerOps.CreateViewer[flavor: old.class.flavor, info: [name: old.name,column: old.column, iconic: TRUE], paint: FALSE];ViewerOps.OpenIcon[icon: new, paint: FALSE];ViewerOps.MoveBelowViewer[altered: new, static: old, paint: FALSE];tddNew _ NARROW[new.data];IF tddNew = NIL THEN RETURN; -- How this could happen is beyond me, but paranoia is cheap.selectionHistory _ NARROW[ViewerOps.FetchProp[old, $SelectionHistory]];new.link _ old;IF old.link=NIL THEN old.link _ newELSE FOR v: Viewer _ old.link, v.link UNTIL v.link=old DOREPEAT FINISHED => v.link _ new;ENDLOOP;new.newVersion _ old.newVersion;new.newFile _ old.newFile;new.file _ old.file;ViewerOps.ComputeColumn[column: new.column, paint: FALSE]; -- to find new height[] _ TEditDocument.SpinAndLock[tddOld, "Split"]; -- must ComputeColumn before lock tddtddNew.text _ tddOld.text;tddNew.tsInfo _ tddOld.tsInfo;tddNew.clipLevel _ tddOld.clipLevel;tddNew.commentFilter _ tddOld.commentFilter;ViewerOps.SetMenu[new, old.menu, FALSE];IF selectionHistory # NIL THEN { -- copy itnewSelectionHistory: TEditDocument.Selection _TextNode.pZone.NEW[TEditDocument.SelectionRec];newSelectionHistory^ _ selectionHistory^;ViewerOps.AddProp[new, $SelectionHistory, newSelectionHistory] };TEditOps.CopyPositionHistory[from: old, to: new];TEditOps.CopyLoadHistory[from: old, to: new];lines _ tddOld.lineTable;loc _ lines[lines.lastLine].pos; -- in case loop doesn't find anythingFOR n: INTEGER IN [0..lines.lastLine] DO -- find line that goes past new bottomIF lines[n].yOffset+lines[n].descent >= old.ch THEN {loc _ lines[n].pos; EXIT };ENDLOOP;TEditDocument.Unlock[tddOld];TEditDisplay.EstablishLine[tddNew, loc];ViewerOps.ComputeColumn[column: new.column, paint: TRUE]; -- now do the paintingFOR v: Viewer _ new.link, v.link UNTIL v=new DOIF v.iconic THEN { -- get rid of it -- ViewerOps.DestroyViewer[v]; EXIT };ENDLOOP;END;END.    ~  -- TEditSplitImpl.mesa, Edited by Paxton on October 19, 1982 10:09 am-- Edited by McGregor on August 27, 1982 2:38 pm Ê˜  ˜ JšÏcE™EJš0™0J˜ šÏk	˜	Jšœžœ˜#JšœžœN˜aJšœ	žœ(˜6J˜Jšœ	žœ˜!Jšœžœ
˜šœ
žœA˜PJšœ$˜$J˜ ——šœž˜Jšžœ;˜BJšžœ˜Jšžœ˜J˜ —Jšžœžœ˜J˜ šÏnœžœžœž˜(J˜0J˜J˜*J˜J˜Jšœ	žœ˜Jšžœ
žœžœžœ˜˜MJšœžœ
žœ˜1—Jšœ%žœ˜,Jšœ<žœ˜CJšœ	žœ˜Jš	žœ
žœžœžœ=˜ZJšœžœ.˜GJ˜Jšžœ
žœžœ˜#šžœžœžœž˜9Jšžœžœ˜ Jšžœ˜—J˜ J˜J˜Jšœ3žœ˜PJšœ1%˜VJ˜J˜J˜$J˜,Jšœ!žœ˜(šžœžœžœ
˜+˜.Jšœžœ˜/—J˜)J˜A—J˜1J˜-J˜Jšœ!%˜Fš	žœžœžœžœ&˜Ošžœ-žœ˜5Jšœžœ˜—Jšžœ˜—J˜J˜(Jšœ3žœ˜Pšžœžœž˜/Jšžœ
žœœ žœ˜JJšžœ˜—Jšžœ˜J˜ —Jšžœ˜J˜ — …—    
¶  Ì  