<<>> <> <> <> <> <> DIRECTORY TBQueue USING [Queue], Buttons, Menus, Rope, ViewerClasses, VFonts; WalnutViewer: CEDAR DEFINITIONS IMPORTS VFonts = BEGIN Viewer: TYPE = ViewerClasses.Viewer; ROPE: TYPE = Rope.ROPE; Queue: TYPE = TBQueue.Queue; buttonEntryHeight: INTEGER = 14; tiogaButtonHeight: INTEGER = 12; <<********************************************************>> <> <<********************************************************>> NextTextViewer: PROC[sib: Viewer] RETURNS [nV: Viewer]; <> NextRightTextViewer: PROC[sib: Viewer, w: INTEGER] RETURNS [nV: Viewer]; <> FirstLabel: PROC[name: ROPE, parent: Viewer] RETURNS [nV: Viewer]; <> AnotherLabel: PROC[name: ROPE, sib: Viewer, newLine: BOOL ¬ FALSE] RETURNS [nV: Viewer]; <> <> FirstButton: PROC[q: Queue, name: ROPE, proc: Buttons.ButtonProc, parent: Viewer, data: REF ANY ¬ NIL, border: BOOL ¬ FALSE, width: INTEGER ¬ 0, guarded: BOOL ¬ FALSE, font: VFonts.Font ¬ VFonts.defaultFont, paint: BOOL ¬ TRUE] RETURNS [nV: Viewer]; <> AnotherButton: PROC[q: Queue, name: ROPE, proc: Buttons.ButtonProc, sib: Viewer, data: REF ANY ¬ NIL, border: BOOL ¬ FALSE, guarded: BOOL ¬ FALSE, font: VFonts.Font ¬ VFonts.defaultFont, newLine: BOOL ¬ FALSE, paint: BOOL ¬ TRUE] RETURNS [nV: Viewer]; <> ImmediateButton: PROC[name: ROPE, proc: Buttons.ButtonProc, sib: Viewer, data: REF ANY ¬ NIL, border: BOOL ¬ FALSE, guarded: BOOL ¬ FALSE, newLine: BOOL ¬ FALSE, paint: BOOL ¬ TRUE] RETURNS[Viewer]; <> <<>> CreateMenuEntry: PROC[q: Queue, name: ROPE, proc: Menus.MenuProc, clientData: REF ANY ¬ NIL, documentation: REF ANY ¬ NIL, fork: BOOL ¬ TRUE, guarded: BOOL ¬ FALSE] RETURNS[Menus.MenuEntry]; <> MakeTypescript: PROC[sib: Viewer] RETURNS [ts: Viewer]; <> MakeRuler: PROC[sib: Viewer, h: INTEGER ¬ 1] RETURNS [r: Viewer]; <> MakeBigTextBox: PROC[sib: Viewer, contents: ROPE] RETURNS [nV: Viewer]; <> <> END.