<> <> <> <<>> DIRECTORY TiogaButtons, ViewerClasses USING [Viewer]; TiogaButtonsExtra: CEDAR DEFINITIONS = BEGIN OPEN TiogaButtons; <> 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.