-- File: Trouble.Mesa,  Last Edit: HGM  March 3, 1981  5:09 AM

DIRECTORY
  Process USING [Priority],
  Window USING [Handle];

Trouble: DEFINITIONS =
  BEGIN

  Bug: PROCEDURE [STRING]; -- never returns

  PupGlitchTrap: PROCEDURE [ERROR]; -- Set it yourself (Compilation order)
  SetUncaughtSignalTrap: PROCEDURE;
  WrapTypescriptFile: PROCEDURE [wh: Window.Handle, pages: CARDINAL];
  SetMagicWindow: PROCEDURE [Window.Handle];
  ForceOutTypescriptFile: PROCEDURE;

  CheckForRecursion: PROCEDURE; -- Punt's if called a second time

  -- Alto oriented routines:
  CallSwat: PROCEDURE [STRING];
  SetCodeTrap: PROCEDURE [new: Process.Priority];
  SetDisplayOnOffProcs: PUBLIC PROCEDURE [on, off: PROCEDURE]; -- EIA board
  SetRamUnBooter: PROCEDURE [PROCEDURE];

  END.