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. ΨTiogaButtonsToo.Mesa Copyright Σ 1991 Xerox Corporation. All rights reserved. Swinehar, February 3, 1991 0:34 am PST This interface allows the creation of TiogaButton nodes at locations other than the end. ΚU˜code™Kšœ9™9K™&—˜K™XK™—K™šΟk ˜ Kšœ œ ˜Kšœœœ˜Kšœ œ ˜2Kšœœ ˜—K˜KšΠlnœœ ˜"Kšœœœ˜K˜Kšœœœ˜K˜šΟnœ˜šœ˜Kšœ˜Kšœœ˜Kšœ˜Kšœœœ˜Kšœœœ˜Kšœœœ˜Kšœœ˜Kšœ œœœ˜Kšœœ˜Kšœ˜—šœ˜K˜——K˜Kšœ˜K™—…—5