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.
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.