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.