-- DisplayDefs.mesa; edited by Sandman on June 30, 1980  4:53 PM
-- Copyright  Xerox Corporation 1979, 1980

DIRECTORY
  AltoDisplay USING [Background],
  FontDefs USING [FontHandle],
  StreamDefs USING [DiskHandle];

DisplayDefs: DEFINITIONS =
  BEGIN
  Background: TYPE = AltoDisplay.Background;

  SetSystemDisplaySize: PROCEDURE [nTextLines, nPages: CARDINAL];
  SetSystemDisplayWidth: PROCEDURE [indent, width: CARDINAL]; -- bits

  SetDummyDisplaySize: PROCEDURE [nScanLines: CARDINAL];
  InitDisplay: PROCEDURE [
    dummySize, textLines, nPages: CARDINAL, f: FontDefs.FontHandle];
  DisplayOff: PROCEDURE [color: Background];
  DisplayOn: PROCEDURE;
  BlinkCursor: PROCEDURE RETURNS [BOOLEAN]; -- TRUE if cursor is on

  SetTypeScript: PROCEDURE [StreamDefs.DiskHandle];
  GetTypeScript: PROCEDURE RETURNS [StreamDefs.DiskHandle];
  GetFont: PROCEDURE RETURNS [FontDefs.FontHandle];
  StartCursor, StopCursor: PROCEDURE;

  DisplayControl: PROGRAM;

  NotEnoughSpaceForDisplay: ERROR;

  -- use these only if you know what you're doing!


  SetFont: PROCEDURE [FontDefs.FontHandle];
  DestroyDisplay, CreateDisplayData, DeleteDisplayData: PROCEDURE;

  END.