<> <> <> <> <> <> <> DIRECTORY DB, Icons USING [IconFlavor], MBQueue USING [Queue], Nut USING [NutType], Buttons, Menus, Rope, ViewerClasses, VFonts; NutViewer: CEDAR DEFINITIONS IMPORTS VFonts = BEGIN OPEN DB; Viewer: TYPE = ViewerClasses.Viewer; ROPE: TYPE = Rope.ROPE; Queue: TYPE = MBQueue.Queue; iconAttribute: Attribute; <<********************************************************************>> <> <<********************************************************************>> Message: PUBLIC PROC[v: Viewer, msg1, msg2, msg3, msg4: ROPE_ NIL]; <> <> <> <> Error: PUBLIC PROC[v: Viewer, msg1, msg2, msg3, msg4: ROPE_ NIL]; <> MessageRope: PUBLIC PROC[v: Viewer, msg: ROPE_ NIL]; <> <<********************************************************************>> <> <> <> <> <> <> <> <> <> <> <<[]_ MakeTypeScript[nV]; (Make a typescript at the end of the window).>> <<********************************************************************>> Initialize: PROC[parent: Viewer] RETURNS [nV: Viewer]; <> <> <> MakeLabel: PROC[name: ROPE, sib: Viewer, newLine: BOOL_ FALSE] RETURNS [nV: Viewer]; <> MakeTextViewer: PROC[sib: Viewer, w: INTEGER_ 0, fullLine: BOOL_ FALSE] RETURNS [nV: Viewer]; <> <> MakeButton: PROC[q: Queue, name: ROPE, proc: Buttons.ButtonProc, sib: Viewer, data: REF ANY_ NIL, border: BOOL_ FALSE, width: INTEGER_ 0, guarded: BOOL_ FALSE, font: VFonts.Font _ VFonts.defaultFont, newLine: BOOL_ FALSE] RETURNS [nV: Viewer]; <> MakeMenuEntry: 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: PUBLIC PROC[sib: Viewer, contents: ROPE] RETURNS [nV: Viewer]; <> <> <> DBQueue: PROC RETURNS[Queue]; <> <> NextTextViewer: PROC[sib: Viewer] RETURNS [nV: Viewer] = INLINE { <> RETURN[MakeTextViewer[sib, , TRUE]]}; NextRightTextViewer: PROC[sib: Viewer, w: INTEGER] RETURNS [nV: Viewer] = INLINE { <> RETURN[MakeTextViewer[sib, w, FALSE]]}; DBNotifier: PUBLIC PROC [q: MBQueue.Queue]; <> <> <> DefaultFreezeProc: Menus.MenuProc; <> ProcessSelection: Buttons.ButtonProc; <> <> FieldHandle: TYPE = REF FieldObject; FieldObject: TYPE = RECORD[ tuple: Relship, attribute: Attribute ]; <<***************** Mapping between entities and viewers *******************>> FindViewerForEntity: PROCEDURE[e: Entity, segment: Segment _ NIL] RETURNS[viewer: ViewerClasses.Viewer]; <> ConvertViewerToEntity: PROCEDURE[v: ViewerClasses.Viewer, create: BOOL _ TRUE] RETURNS[e: Entity, name: ROPE]; <> <> <> <> GetNutInfo: PROC[v: Viewer] RETURNS[segment: Segment, domain: Domain, entity: ROPE]; <> <<$Entity properties set up by the [default] create proc.>> ToolViewer: Rope.ROPE; -- the name of the tool viewer domain used in Find and Convert TextViewer: Rope.ROPE; -- the name of the text viewer domain used in Find and Convert <<***************** Icon management (NutViewerIconImpl) *******************>> SetIcon: PROC[e: Entity, iconFile: ROPE, fileIndex: CARDINAL]; <> NewIcon: PROC[file: ROPE, index: CARDINAL] RETURNS[Icons.IconFlavor]; GetIcon: PROC[e: Entity, seg: DB.Segment _ NIL] RETURNS[Icons.IconFlavor]; <> GetIconFromName: PROC[ name: ROPE ] RETURNS[Icons.IconFlavor]; <> <> <<***************** Nut Viewers (NutViewerPrivateImpl) *******************>> FindViewer: PROC[type: Nut.NutType, domain: Domain, eName: ROPE, seg: Segment] RETURNS[Viewer]; FindSpawned: PROC[v: Viewer] RETURNS[Viewer]; SetSpawned: PROC[parent, spawned: Viewer]; <<**********************************************************>> END.