TiogaButtonsExtra.Mesa
Copyright © 1984, 1985 Xerox Corporation. All rights reserved.
Rick Beach, September 26, 1985 11:09:27 am PDT
DIRECTORY
TiogaButtons,
ViewerClasses USING [Viewer];
TiogaButtonsExtra: CEDAR DEFINITIONS
= BEGIN OPEN TiogaButtons;
Create TiogaButtons from supplied information.
CreateButtonForEachNode:
PROC [viewer: ViewerClasses.Viewer,
firstLevelOnly:
BOOL ←
FALSE, subtreeAsButton:
BOOL ←
TRUE,
proc: TiogaButtonProc ←
NIL, clientData:
REF
ANY ←
NIL, fork:
BOOLEAN ←
TRUE];
... creates a TiogaButton for each node found in the TiogaButtons viewer
END.