-- CDEvents-Registration10.txt -- Ch. Jacobi September 16, 1983 2:11 pm -- last edited by Christian Jacobi October 17, 1983 4:45 pm EventProc: TYPE = PROC [event: REF, design: CD.Design, x: REF] RETURNS [dont: BOOL←FALSE]; If not specified else: event, design are initialized, x is NIL $CreateNewDesign $RenameDesign $RegisterTechnology (design=NIL, x=Technology) $AfterCellReplacement (x=Object [cell] ) $BeforeCellReplacement (x=Object [cell] ) $AfterPush $AfterPop $WriteTechnologyPrivate [listens to dont, allows writing technology private information; may be used only with permission of technology, because of order on file!!!] $ReadTechnologyPrivate [listens to dont, allows reading back technology private information; may be used only with permission of technology, because of order on file!!!]