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
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.