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

INTERFACE VBTExtras;

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

IMPORT VBT, Font, Rect;

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

END VBTExtras.