DIRECTORY NodeStyle USING [FontFace, FontAlphabets, FontUnderlining, LineFormatting, PathType], Rope USING [ROPE], StyleToolDefs USING [FontFamilyRec], ViewerClasses USING [Viewer]; StyleToolConvert: CEDAR DEFINITIONS = BEGIN BadNumber: SIGNAL; ConvertUnits: PROCEDURE [num: REAL, prevUnits, newUnits: Rope.ROPE] RETURNS [REAL]; GetRealFromViewer: PROCEDURE [viewer: ViewerClasses.Viewer] RETURNS [REAL]; GetIntegerFromViewer: PROCEDURE [viewer: ViewerClasses.Viewer] RETURNS [INTEGER]; GetFontFamily: PROCEDURE [name: ATOM] RETURNS [fontInfo: StyleToolDefs.FontFamilyRec]; GetFontFaceJaM: PROCEDURE [face: NodeStyle.FontFace] RETURNS [Rope.ROPE]; GetFontFaceChoice: PROCEDURE [face: NodeStyle.FontFace] RETURNS [Rope.ROPE]; RopeFromReal: PROCEDURE [r: REAL] RETURNS [Rope.ROPE]; GetFontAlphabetsJaM: PROCEDURE [alphabets: NodeStyle.FontAlphabets] RETURNS [Rope.ROPE]; GetFontAlphabetsChoice: PROCEDURE [alphabets: NodeStyle.FontAlphabets] RETURNS [Rope.ROPE]; FontAlphChoiceToJaM: PROCEDURE [alphabets: Rope.ROPE] RETURNS [Rope.ROPE]; GetFontUnderliningJaM: PROC [underlining: NodeStyle.FontUnderlining] RETURNS [Rope.ROPE]; GetFontUnderliningChoice: PROC [underlining: NodeStyle.FontUnderlining] RETURNS [Rope.ROPE]; FontUndChoiceToJaM: PROCEDURE [underlining: Rope.ROPE] RETURNS [Rope.ROPE]; GetLineFormattingJaM: PROCEDURE [lineFormat: NodeStyle.LineFormatting] RETURNS [Rope.ROPE]; GetLineFormattingChoice: PROC [lineFormat: NodeStyle.LineFormatting] RETURNS [Rope.ROPE]; LineChoiceToJaM: PROCEDURE [lineFormatting: Rope.ROPE] RETURNS [Rope.ROPE]; GetPathTypeJaM: PROCEDURE [pathType: NodeStyle.PathType] RETURNS [Rope.ROPE]; GetPathTypeChoice: PROCEDURE [pathType: NodeStyle.PathType] RETURNS [Rope.ROPE]; END. ΤStyleToolConvert.mesa, written by Linda Gass on August 12, 1982 9:42 am Last Edit by Linda Gass on November 4, 1982 2:28 pm Last Edited by: Plass, March 28, 1983 2:54 pm Pavel, June 26, 1985 4:04:50 pm PDT Κn˜IcodešœG™GK™3šœ-™-K™#—K˜šΟk ˜ Kšœ œG˜VKšœœœ˜Kšœœ˜$Kšœœ ˜—K˜K˜šΠbxœœ œ˜%š˜Kšœ œ˜K˜Kš Οn œ œœœœœ˜SK˜KšŸœ œ œœ˜KK˜KšŸœ œ œœ˜QK˜KšŸ œ œœœ)˜VK˜KšŸœ œœœ˜IK˜KšŸœ œœœ˜LK˜Kš Ÿ œ œœœœ˜6K˜KšŸœ œ&œœ˜XK˜KšŸœ œ&œœ˜[K˜Kš Ÿœ œœœœ˜JK˜KšŸœœ*œœ˜YK˜KšŸœœ*œœ˜\K˜Kš Ÿœ œœœœ˜KK˜KšŸœ œ(œœ˜[K˜KšŸœœ(œœ˜YK˜Kš Ÿœ œœœœ˜KK˜KšŸœ œ œœ˜MK˜KšŸœ œ œœ˜P—Kšœ˜——…—Μ