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. F-- GEditIO.mesa; Edited by McGregor on December 6, 1982 4:50 pm Ê£˜JšÏc'œ™?J˜šÏk ˜ Jšœžœžœ˜Jšœžœ ˜Jšœ žœ˜"J˜—Jšœ ž œžœž˜)J˜JšÏn œžœ žœ žœžœ žœ žœ˜ZJ˜JšŸœžœ žœ žœžœ žœ žœ˜RJ˜JšŸ œžœ žœ žœžœ žœ žœ˜WJ˜JšŸœžœ žœ žœžœžœ žœ˜YJ˜Jš Ÿ œžœ žœ žœžœžœ˜QJ˜Jš Ÿœžœ žœ žœžœžœ˜IJ˜Jš Ÿ œžœ žœ žœžœžœ˜NJ˜š Ÿœžœ žœ$žœžœž˜pJšœ=˜=—J˜Jšœ žœžœ"l˜¦J˜Jšžœ˜J˜—…—B+