(* Copyright (C) 1992, Digital Equipment Corporation                         *)
(* All rights reserved.                                                      *)
(* See the file COPYRIGHT for a full description.                            *)
(*                                                                           *)
(* Last modified on Wed Dec 21 18:28:34 PST 1994 by heydon                   *)

INTERFACE ScrnFontExtras;

(* Extensions to the "ScrnFont" interface. *)

IMPORT ScrnFont, Rect;

PROCEDURE TightBoundingBox(txt: TEXT; fnt: ScrnFont.T): Rect.T;
(* Return the smallest rectangle enclosing the ink resulting from painting
   "txt" at the origin in the font "fnt". Requires "txt # NIL". If "fnt" is
   "NIL" or the font's metrics are "NIL", then the result is a rectangle
   whose southwest corner is the origin, and whose height is 1 and whose width
   is the length of "txt". *)

PROCEDURE TightBoundingBoxSub(READONLY txt: ARRAY OF CHAR; fnt: ScrnFont.T):
  Rect.T;
(* Like "TightBoundingBox", but the string is passed as an array of characters
   instead of as a "TEXT". *)

PROCEDURE TightBoundingBoxSubValid(
  READONLY txt: ARRAY OF CHAR;
  fnt: ScrnFont.T;
  VAR (*OUT*) valid: BOOLEAN)
  : Rect.T;
(* Like "TightBoundingBoxSub", but "valid" is set to "TRUE" iff all characters
   of "txt" are valid. If "fnt" is "NIL" or the font's metrics are "NIL", then
   "valid" will be "TRUE" independent of "txt". *)

END ScrnFontExtras.