DIRECTORYCD,CDBottomUp,CDCells,CDCommandOps,CDOps,CDSequencer,TerminalIO;CDSetDisplayTresholdsImpl: CEDAR PROGRAMIMPORTS CDBottomUp, CDCells, CDCommandOps, CDOps, TerminalIO = BEGINSetTreshold: PUBLIC PROC [design: CD.Design, root: CD.Object] = {[] _ CDBottomUp.StartRecurse[setTresholdClass, root, design];};DoSetTreshold: CDBottomUp.DoProc = {IF CDCells.IsCell[ob] THEN CDCells.SetSimplificationTreshhold[ob, -1];};ResetDisplayTresholdsComm: PROC [comm: CDSequencer.Command] = {inst: CD.Instance _ CDOps.TheInstance[comm.design, "recompute display treshold hierarchycally\n"];IF inst#NIL THEN {SetTreshold[comm.design, inst.ob];TerminalIO.PutRope["--done\n"]}};setTresholdClass: CDBottomUp.Class _ CDBottomUp.Register[DoSetTreshold, NIL, NIL, $CDSetDisplayTresholds, $CDSetDisplayTresholds];CDCommandOps.RegisterWithMenu[menu: $ProgramMenu, entry: "reset display tresholds", proc: ResetDisplayTresholdsComm, key: $CDSetDisplayTresholds];END.   Œ  CDSetDisplayTresholdsImpl.mesa   (a ChipNDale module)Copyright c 1986, 1987 by Xerox Corporation.  All rights reserved.Created by Christian October 28, 1986 10:47:15 am PSTLast edited by: Christian Jacobi, February 13, 1987 1:17:03 pm PST--use the CDBottomUp mechanism because we want to deal every object just once but --some silly user didn't include the objects in the directory.  Ê\  ˜ codešœ5™5Kšœ
Ïmœ7™BKšœ5™5K™BK˜ —šÏk	˜	Kšžœ˜Kšœ˜Kšœ˜Kšœ˜Kšœ˜Kšœ˜Kšœ˜—K˜ šÏnœžœž˜(Kšžœ8˜?—Kšž˜K˜ š
Ÿœžœžœ
žœžœ˜AJšœ=˜=J˜—K˜ šŸœ˜$šžœžœ˜Jšœ+˜+—K˜—K˜ šŸœžœ ˜?KšœžœZ˜bšžœžœžœ˜Kšœ"˜"K˜K˜—K˜—K˜ šœHžœ2˜‚KšœR™RKšœ@™@—Kšœ’˜’Kšžœ˜K˜ — …—    Ô  ¼  