<> <> <> <> <<>> <<>> DIRECTORY EditSpan USING [ Place ], Rope USING [ROPE], TiogaButtons USING [TiogaButton, TiogaButtonProc], ViewerClasses USING [Viewer]; TiogaButtonsToo: CEDAR DEFINITIONS = BEGIN OPEN TiogaButtons; ROPE: TYPE ~ Rope.ROPE; CreateButtonAtNode: PROC [ viewer: ViewerClasses.Viewer, oldButton: TiogaButton _ NIL, where: EditSpan.Place _ before, rope: ROPE _ NIL, format: ROPE _ NIL, looks: ROPE _ NIL, proc: TiogaButtonProc _ NIL, clientData: REF ANY _ NIL, fork: BOOLEAN _ TRUE ] RETURNS [button: TiogaButton]; END. <<>>