<<-- GEditIO.mesa; Edited by McGregor on December 6, 1982 4:50 pm>> DIRECTORY Rope USING [Cat, ROPE], ViewerClasses USING [Viewer], ViewerTools USING [TiogaContents]; GEditIO: DEFINITIONS IMPORTS Rope = BEGIN GetInteger: PROC [rope: Rope.ROPE, offset: INT] RETURNS [value: INTEGER, newOffset: INT] ; GetInt: PROC [rope: Rope.ROPE, offset: INT] RETURNS [value: INT, newOffset: INT] ; GetBoolean: PROC [rope: Rope.ROPE, offset: INT] RETURNS [value: BOOL, newOffset: INT] ; GetRope: PROC [rope: Rope.ROPE, offset: INT] RETURNS [value: Rope.ROPE, newOffset: INT] ; PutInteger: PROC [rope: Rope.ROPE, value: INTEGER] RETURNS [newRope: Rope.ROPE] ; PutInt: PROC [rope: Rope.ROPE, value: INT] RETURNS [newRope: Rope.ROPE] ; PutBoolean: PROC [rope: Rope.ROPE, value: BOOL] RETURNS [newRope: Rope.ROPE] ; PutTiogaContents: PROC [rope: Rope.ROPE, value: ViewerTools.TiogaContents] RETURNS [newRope: Rope.ROPE] = INLINE {newRope _ Rope.Cat[rope, value.contents, value.formatting]}; MyParent: SIGNAL RETURNS [viewer: ViewerClasses.Viewer] ; -- expected to be caught by any procedure (like GEditInitImpl) that causes Tioga to create new $Text objects END.