<> <> <> <> DIRECTORY Cursors, Menus, Pipal, PipalPaint, PipalReal, ViewerClasses; PipalEdit: CEDAR DEFINITIONS = BEGIN <> <> <> CreateViewer: PROC [object: Pipal.Object] RETURNS [viewer: ViewerClasses.Viewer]; <> NotifyProc: TYPE = PROC [editor: Pipal.Object, queue: PipalPaint.Queue, viewer: ViewerClasses.Viewer, input: LIST OF REF ANY] RETURNS [newEditor: Pipal.Object]; <> <> CreateBiscroller: PROC [editor: Pipal.Object, tipTable: Pipal.ROPE, notify: NotifyProc, buttons: BOOL _ FALSE]; EnqueueSetCursor: PROC [queue: PipalPaint.Queue, cursor: Cursors.CursorType]; <> <> <> <<>> editMethod: Pipal.Method; EditProc: TYPE = PROC [mutant: Pipal.Object] RETURNS [editor: Pipal.Object _ NIL]; HasEditProc: PROC [object: Pipal.Object] RETURNS [BOOL]; Edit: EditProc; < crash and burn.>> <<>> END.