-- WriteStringDefs.mesa
-- last modified by McCreight, August 5, 1982  12:26 PM
-- written by Hilton, August 4, 1982  1:42 PM

DIRECTORY
  ppdefs;

WriteStringDefs: DEFINITIONS
  IMPORTS ppdefs =

BEGIN OPEN ppdefs;


DrawOb: PROCEDURE[ob: obPtr, min: Point];
-- This procedure takes a pointer to an object
-- and puts an instance of it whose upper left corner is
-- at min onto the masterList to be displayed.


MakeCell: PROCEDURE[lpp: listPtr] RETURNS[ob: obPtr, min: Point];
-- This procedure makes a new unnamed cell of the
-- object instances on the list lpp.  The upper left corner
-- of those instances is returned in min.


StringToRectangles: PROCEDURE [s: STRING, proc:
  PROCEDURE [r: Rect]];
-- This procedure receives a string, s, finds cells for each of the
--   string's characters and makes rectangles for each character.


ReadFont: PROCEDURE;
-- This procedure reads the named cells for the font "font.chip" into
-- the global variable "font".  It can generate the SIGNAL NoFont.

NoFont: SIGNAL;

ReleaseFont: PROCEDURE;
-- This procedure clears out the named cells for the font from
-- the global variable "font".  It must be called by any program
-- that calls StringToRectangles or ReadFont before user
-- interaction or output is possible, because if the output
-- routine encounters those cells in the cell super list,
-- a malformed output file can result.

font: PRIVATE LONG POINTER TO cList;

END.  -- of WriteStringDefs --


(635)\f7