DIRECTORYButtons USING [ButtonProc],ChoiceButtons USING [BuildEnumTypeSelection, ButtonList, SelectionNotifierProc],Containers USING [Create, ChildXBound],Convert USING [AtomFromRope, RopeFromAtom],Rope USING [ROPE],Trc USING [BuildControlViewer, ClassEnumProc, ClassFromFlavor, Copy, EnumerateRegisteredClasses, NotifyListeners, TRC, TRCRep],TrcButtons USING [AttachNewTrcToButton, Create, TrcFromButton],TrcStandardClasses USING [EnumerateRegisteredParametricClasses, NewChainTrc, NewIdentityTrc, ReplaceNthTrcInChain],TrcViewers USING [CreateTRCViewer, InfoFromTRCViewer, NewTrc],ViewerClasses USING [Viewer, ViewerRec],ViewerOps USING [DestroyViewer, EstablishViewerPosition, PaintViewer, SetOpenHeight];TrcToolImpl: CEDAR PROGRAMIMPORTS ChoiceButtons, Containers, Convert, Trc, TrcButtons, TrcStandardClasses, TrcViewers, ViewerOps~ BEGINROPE: TYPE ~ Rope.ROPE;width: NAT ~ 100;cWidth: NAT ~ 250;margin: NAT ~ 10;sq: NAT ~ 15;Data: TYPE ~ REF DataRep;DataRep: TYPE ~ RECORD [novice: BOOL,chainTrc: Trc.TRC,			--the parent chain trctrcV, controlV, viewer, sibling: ViewerClasses.Viewer _ NIL];BuildNewControlViewer: PROC [data: Data, trc: Trc.TRC, paint: BOOL _ TRUE] ~ {IF data.controlV#NIL THEN ViewerOps.DestroyViewer[viewer: data.controlV, paint: FALSE];data.controlV _ Trc.BuildControlViewer[trc: trc, info: [parent: data.viewer, wx: 0, wy: sq*15, ww: 17*sq, wh: sq*3, border: FALSE, scrollable: FALSE]];	--This should init trc.instanceViewerOps.EstablishViewerPosition[viewer: data.controlV, x: data.controlV.wx, y: data.controlV.wy, w: 1000, h: IF data.controlV.openHeight=0 THEN data.controlV.wh ELSE data.controlV.openHeight];ViewerOps.EstablishViewerPosition[viewer: data.viewer, x: data.viewer.wx, y: data.viewer.wy, w: data.viewer.ww, h: data.controlV.wy + data.controlV.wh];IF data.sibling#NIL THEN ViewerOps.EstablishViewerPosition[viewer: data.sibling, x: data.sibling.wx, y: data.viewer.wh + sq, w: data.sibling.ww, h: data.sibling.wh];IF paint THEN {ViewerOps.PaintViewer[viewer: data.controlV, hint: client];IF data.sibling#NIL THEN ViewerOps.PaintViewer[viewer: data.sibling, hint: client];};};NotifyEnumButtons: ChoiceButtons.SelectionNotifierProc = {data: Data ~ NARROW[clientdata];trc: Trc.TRC ~ NEW[Trc.TRCRep _ [class: Trc.ClassFromFlavor[Convert.AtomFromRope[name]], instance: NIL]];NewTrcInMainViewer[data, trc, FALSE];ViewerOps.PaintViewer[viewer: data.viewer.parent, hint: client];};MakeTrcTool: PUBLIC PROC [info: ViewerClasses.ViewerRec _ []] RETURNS [v: ViewerClasses.Viewer] ~ {FillContainer: PROC [v, sibling: ViewerClasses.Viewer, novice: BOOL] ~ {iden: Trc.TRC ~ TrcStandardClasses.NewIdentityTrc[];GetButtonList: PROC [preferredDefault: ATOM] RETURNS [list: ChoiceButtons.ButtonList _ NIL, default: ROPE _ NIL] ~ {EnumProc: Trc.ClassEnumProc = {rope: ROPE ~ Convert.RopeFromAtom[from: class.flavor, quote: FALSE];IF class.flavor=preferredDefault THEN default _ rope;IF class.control#NIL THEN list _ CONS[rope, list];};(IF novice THEN TrcStandardClasses.EnumerateRegisteredParametricClasses ELSE Trc.EnumerateRegisteredClasses)[EnumProc];IF default=NIL THEN default _ list.first;};data: Data ~ NEW[DataRep _ [novice: novice, viewer: v, sibling: sibling, chainTrc: chain]];buttonList: ChoiceButtons.ButtonList;defaultButton: ROPE;[list: buttonList, default: defaultButton] _ GetButtonList[IF novice THEN $Linear ELSE $Edit];[] _ ChoiceButtons.BuildEnumTypeSelection[viewer: v, x: 0, y: 0, buttonNames: buttonList, default: defaultButton, borderOnButtons: FALSE, notifyClientProc: NotifyEnumButtons, clientdata: data, style: menuSelection, allInOneRow: FALSE, maxWidth: 17*sq];data.trcV _ TrcViewers.CreateTRCViewer[trc: TrcStandardClasses.NewIdentityTrc[], rectangle: [0,0,1,1], dx: 0.05, info: IF data.novice THEN [parent: data.viewer, wx: 12*sq, wy: 3*sq, ww: 5*sq, wh: 5*sq, scrollable: FALSE] ELSE [parent: data.viewer, wx: 0, wy: 3*sq, ww: 11*sq, wh: 11*sq, scrollable: FALSE], paint: FALSE];NotifyEnumButtons[name: defaultButton, clientdata: data];FOR column: NAT IN [0..2) DOwx: INTEGER ~ sq*(12+3*column);FOR row: NAT IN [(IF novice THEN 2 ELSE 0) .. 4) DOwy: INTEGER ~ sq*(3+3*row);[] _ TrcButtons.Create[trc: iden, rectangle: [0,0,1,1], dx: 0.1, info: [parent: v, wx: wx, wy: wy, ww: 2*sq, wh: 2*sq, scrollable: FALSE], proc: BugTrcButton, clientData: data, paint: FALSE];ENDLOOP;ENDLOOP;};chain: Trc.TRC _ TrcStandardClasses.NewChainTrc[LIST[TrcStandardClasses.NewIdentityTrc[], TrcStandardClasses.NewIdentityTrc[]]];  --The NIL's act as placeholderstop, bottom: ViewerClasses.Viewer;IF info.name = NIL THEN info.name _ "Trc Tool";v _ Containers.Create[info: info, paint: FALSE];top _ Containers.Create[info: [border: FALSE, scrollable: FALSE, ww: v.ww, wh: v.wh, parent: v], paint: FALSE];Containers.ChildXBound[container: v, child: top];bottom _ Containers.Create[info: [border: FALSE, scrollable: FALSE, ww: v.ww, wh: v.wh, parent: v], paint: FALSE];Containers.ChildXBound[container: v, child: bottom];FillContainer[v: top, sibling: bottom, novice: TRUE];FillContainer[v: bottom, sibling: NIL, novice: FALSE];[] _ TrcViewers.CreateTRCViewer[trc: chain, rectangle: [0,0,1,1], dx: 0.05, info: [parent: top, wx: 0, wy: 3*sq, ww: 11*sq, wh: 11*sq, scrollable: FALSE]];ViewerOps.SetOpenHeight[viewer: v, clientHeight: top.wy + top.wh + sq];ViewerOps.PaintViewer[viewer: v, hint: all];};NewTrcInMainViewer: PROC [data: Data, trc: Trc.TRC, paint: BOOL _ TRUE] ~ {TrcViewers.NewTrc[data.trcV, trc, paint];BuildNewControlViewer[data, trc];TrcStandardClasses.ReplaceNthTrcInChain[chain: data.chainTrc, new: trc, n: IF data.novice THEN 1 ELSE 0];Trc.NotifyListeners[trc: trc, fork: TRUE];};BugTrcButton: Buttons.ButtonProc = {button: ViewerClasses.Viewer ~ NARROW[parent];data: Data ~ NARROW[clientData];SELECT mouseButton FROMred => {	--Copy from button to main viewercopy: Trc.TRC ~ Trc.Copy[TrcButtons.TrcFromButton[button]];NewTrcInMainViewer[data, copy];};yellow => {big: Trc.TRC ~ TrcViewers.InfoFromTRCViewer[data.trcV].trc;little: Trc.TRC ~ TrcButtons.TrcFromButton[button];TrcButtons.AttachNewTrcToButton[button: button, trc: big];NewTrcInMainViewer[data, little];};blue => {copy: Trc.TRC ~ Trc.Copy[TrcViewers.InfoFromTRCViewer[data.trcV].trc];TrcButtons.AttachNewTrcToButton[button: button, trc: copy];};ENDCASE => ERROR;};END.  è  TrcToolImpl.mesaCopyright c 1986 by Xerox Corporation.  All rights reserved.Eric Nickell, April 10, 1986 9:52:15 am PSTEXPORTS ExportsListOPEN Interface;trcV is the trc viewercontrolV is the controlling viewerviewer is the enclosing containersibling, if non-NIL, is the container below viewer[class: Trc.Class] RETURNS [quit: BOOL _ FALSE][parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE] ‌تX  ک ڑœ™Icodeڑœ<™<Kڑœ+™+K™ —ڑدk	ک	Kڑœ‌œکKڑœ‌œ=کPKڑœ‌œک'Kڑœ‌œک+Kڑœ‌œ‌œکKڑœ‌œi‌œ
کKڑœ‌œ/ک?Kڑœ‌œ[کsKڑœ‌œ.ک>Kڑœ‌œک(Kڑœ
‌œFکUKک —Kک Kڑœ‌œ‌کKڑ‌œ_کfKڑœ™Kڑœ‌کڑœ™Kک Kڑ‌œ‌œ‌œکKڑœ‌œکKڑœ‌œکKڑœ‌œکKڑœ‌œکKک ڑœ‌œ‌œ	کڑœ	‌œ‌œکKڑœ‌œکKڑœ‌œدcک+ڑœ8‌ک;K™K™"K™!Kڑœ‌œ™2—Kڑœک——code2•StartOfExpansion% -- [name: ROPE, clientdata: REF ANY]ڑ
دnœ‌œ‌œ	‌œ‌œکNK–6[viewer: ViewerClasses.Viewer, paint: BOOL _ TRUE]ڑ‌œ‌œ‌œ7‌œکWKڑœ|‌œ‌œ‍ک·Kڑœo‌œ‌œ‌œکآK–X[viewer: ViewerClasses.Viewer, x: INTEGER, y: INTEGER, w: INTEGER, h: INTEGER]ڑœکککKڑ‌œ‌œ‌œچک¥ڑ‌œ‌œکK–w[viewer: ViewerClasses.Viewer, hint: ViewerOps.PaintHint, clearClient: BOOL _ TRUE, whatChanged: REF ANY _ NIL]ک;Kڑ‌œ‌œ;کSKڑœک—Kک—ڑœ:ک:Kڑœ‌œک Kڑœ	‌œ‌œQ‌œکiK–B[viewer: ViewerClasses.Viewer, trc: TRC, paint: BOOL _ TRUE]ڑœ‌œک%K–w[viewer: ViewerClasses.Viewer, hint: ViewerOps.PaintHint, clearClient: BOOL _ TRUE, whatChanged: REF ANY _ NIL]ڑœ@ک@Kڑœک—ڑںœ‌œ‌œ&‌œکcڑںœ‌œ,‌œکHL–[]ڑœ
‌œ'ک4ڑںœ‌œ‌œ‌œ#‌œ‌œ‌œکtڑœکKڑœ/™/K–$[from: ATOM, quote: BOOL _ TRUE]ڑœ‌œ3‌œکDKڑ‌œ‌œک5Kڑ‌œ‌œ‌œ‌œک2Kڑœک—Kڑœ‌œ‌œ9‌œ+کwKڑ‌œ	‌œ‌œک)Kڑœک—Kڑœ‌œKک[Kڑœ%ک%Kڑœ‌œکKک Kڑœ;‌œ‌œ	‌œک^K–œ[viewer: ViewerClasses.Viewer, x: CARDINAL _ 0B (0), y: CARDINAL _ 0B (0), title: ROPE _ NIL, buttonNames: ChoiceButtons.ButtonList, default: ROPE _ NIL, borderOnButtons: BOOL _ TRUE, notifyClientProc: ChoiceButtons.SelectionNotifierProc, permit: ChoiceButtons.EnumPermissionProc, clientdata: REF ANY _ NIL, style: ChoiceButtons.StyleChoice, allInOneRow: BOOL _ TRUE, maxWidth: INTEGER]ڑœƒ‌œ\‌œکüK–[]ڑœw‌œ‌œL‌œ‌œJ‌œ
‌œکءKڑœ9ک9ڑ‌œ	‌œ‌œ‌کKڑœ‌œکڑ‌œ‌œ‌œ‌œ‌œ‌œ
‌ک3Kڑœ‌œکK–ت[trc: TRC, rectangle: ImagerTransformation.Rectangle, dx: REAL, info: ViewerClasses.ViewerRec, proc: Buttons.ButtonProc, clientData: REF ANY _ NIL, fork: BOOL _ TRUE, paint: BOOL _ TRUE]ڑœƒ‌œ0‌œک؟Kڑ‌œک—Kڑ‌œک—Kڑœک—Kڑœ‌œ"‌œN‍ک،K–™[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]ڑœ"ک"Kک Kڑ‌œ‌œ‌œک/K–™[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]ڑœ)‌œک0Kک K–™[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]ڑœ'‌œ‌œ)‌œکoK–B[container: Containers.Container, child: ViewerClasses.Viewer]ڑœ1ک1K–™[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]ڑœ*‌œ‌œ)‌œکrK–B[container: Containers.Container, child: ViewerClasses.Viewer]ڑœ4ک4Kک Kڑœ/‌œک5Kڑœ"‌œ
‌œک6Kک Kڑœ“‌œک›Kک K–9[viewer: ViewerClasses.Viewer, clientHeight: INTEGER]کGK–w[viewer: ViewerClasses.Viewer, hint: ViewerOps.PaintHint, clearClient: BOOL _ TRUE, whatChanged: REF ANY _ NIL]ک Kڑœ,ک,Kڑœک—Kک –‚ -- [parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE]ڑ
ںœ‌œ‌œ	‌œ‌œکKKڑœ)ک)Kڑœ!ک!KڑœK‌œ‌œ‌œکiK–"[trc: TRC, fork: BOOL _ FALSE]ڑœ$‌œک*Kک—ک$Kڑذck~™~Kڑœ‌œ	ک.Kڑœ‌œک ڑ‌œ‌کڑœ	‍!ک*Kڑœ
‌œ.ک;KکKڑœک—ڑœکKڑœ	‌œ/ک;Kڑœ‌œ$ک3K–,[button: ViewerClasses.Viewer, trc: TRC]ڑœ:ک:Kڑœ!ک!Kڑœک—ڑœ	ک	K– [viewer: ViewerClasses.Viewer]ڑœ
‌œ9کFK–,[button: ViewerClasses.Viewer, trc: TRC]ک;Kڑœک—Kڑ‌œ‌œک—Kک——Kک Kڑ‌œک— …—      0D  