DIRECTORYCD,CDSequencer,CDVPrivate,Process,RuntimeError,TIPUser;CDVMarksAndModes: CEDAR PROGRAMIMPORTS CDSequencer, CDVPrivate, Process, RuntimeError, TIPUser =   BEGINSetXModeOn: CDVPrivate.CursorModeProc = BEGINme.designRec.xMode _ TRUEEND;SetXModeOff: CDVPrivate.CursorModeProc = BEGINme.designRec.xMode _ FALSEEND;SetMarkOnStart: CDVPrivate.CursorModeProc = BEGINme.designRec.mark _ me.designRec.startLCEND;SetMarkOnStop: CDVPrivate.CursorModeProc = BEGINme.designRec.mark _ me.designRec.stopLCEND;SetStartOnMark: CDVPrivate.CursorModeProc = BEGINme.designRec.startLC _ me.designRec.startLC; me.designRec.startLCValid _ TRUE;END;ShowMark: CDVPrivate.CursorModeProc = BEGINcomm: CDSequencer.Command ~ NEW[CDSequencer.CommandRec _ CDSequencer.CommandRec[design: me.actualDesign,a: $ShowMark,pos: me.designRec.mark,sPos: me.designRec.mark,l: me.designRec.currentLevel,ref: me,n: me.defaultWidthVC,b: me.designRec.firstHLC]];TRUSTED {Process.Detach[FORK CDSequencer.ExecuteCommand[design: me.actualDesign, comm: comm]]}END;CursoredDesignXMode: PROC [] RETURNS [xmode: BOOL_FALSE] =  BEGINENABLE RuntimeError.UNCAUGHT => {--not yet initialized-- GOTO skip};IF CDVPrivate.cursoredCDViewer#NIL THENWITH CDVPrivate.cursoredCDViewer.data SELECT FROMgr: CDVPrivate.MyGraphicRef => xmode _ gr.designRec.xModeENDCASE => NULL;EXITS skip => NULLEND;IsXMode: PROC RETURNS [xMode: BOOL] = {xMode _ CursoredDesignXMode[]};IsNotXMode: PROC RETURNS [notXMode: BOOL] = {notXMode _ ~ CursoredDesignXMode[]};CDVPrivate.ImplementACursor[$SetXModeOn, SetXModeOn]; CDVPrivate.ImplementACursor[$SetXModeOff, SetXModeOff];CDVPrivate.ImplementACursor[$SetMarkOnStart, SetMarkOnStart];CDVPrivate.ImplementACursor[$SetMarkOnStop, SetMarkOnStop];CDVPrivate.ImplementACursor[$SetStartOnMark, SetStartOnMark];CDVPrivate.ImplementACursor[$ShowMark, ShowMark];TIPUser.RegisterTIPPredicate[key: $ChipndaleXMode, p: IsXMode];TIPUser.RegisterTIPPredicate[key: $ChipndaleNXMode, p: IsNotXMode];END.   
  CDVMarksAndModes.mesaCopyright c 1984 by Xerox Corporation.  All rights reserved.by Christian Jacobi   September 7, 1984 3:31:25 pm PDT last edited by Christian Jacobi   September 7, 1984 3:31:28 pm PDT--handled specially because we do not call stoptrack ÊÏ  ˜ šœ™Jšœ
Ïmœ1™<Jšœ7™7JšœB™B—J˜ šÏk	˜	Jšžœ˜Jšœ˜Jšœ˜J˜J˜Jšœ˜J˜ —šÏbœžœž˜Jšžœ=˜D—Jšž˜J˜ šÏn
œ˜(Jšž˜Jšœž˜Jšžœ˜J˜ —š œ˜)Jšž˜Jšœž˜Jšžœ˜J˜ —š œ˜,Jšž˜Jšœ(˜(Jšžœ˜J˜ —š œ˜+Jšž˜Jšœ'˜'Jšžœ˜J˜ —šÐbnœ˜,Jšž˜Jšœ-˜-Jšœžœ˜!Jšžœ˜J˜ —š œ˜&Jšž˜Jšœ4™4šœžœ˜9šœ˜J˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜J˜J˜Jšœ˜J˜—J˜—šžœžœ˜Jšœ?˜?J˜—Jšžœ˜J˜ —š
 œžœžœ	žœžœ˜<šž˜JšžœžœÏcœžœ˜D—šžœžœž˜'šžœ"žœž˜1Jšœ9˜9Jšžœžœ˜——Jšžœ	ž˜Jšžœ˜J˜ —Jš œžœžœ	žœ$˜Fš 
œžœžœžœ)˜QJ˜ —Jšœ6˜6Jšœ7˜7Jšœ=˜=Jšœ;˜;Jšœ=˜=Jšœ1˜1Jšœ?˜?JšœC˜CJšžœ˜J˜ — …—    þ  ×  