-- CDEvents-Registration17.txt -- Ch. Jacobi September 16, 1983 2:11 pm -- last edited by Christian Jacobi August 23, 1984 12:57:18 pm PDT 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!!!] $AfterChange (x=Object) [is not called if one of $AfterCellReplacement or $AfterPop is called; must be handled fast] $AfterAdjustItSelf (x=Object)