MODULE VBTExtras;

IMPORT VBT, Font, Palette, Rect, ScrnFont, ScrnFontExtras;
IMPORT   VBTRep, PlttFrnds;

PROCEDURE TightBoundingBox(v: VBT.Leaf; txt: TEXT; fnt: Font.T): Rect.T =
  BEGIN
    LOOP
      LOCK v DO
        IF v.st = NIL THEN
          RETURN ScrnFontExtras.TightBoundingBox(txt, NIL)
        END;
        VAR sf: ScrnFont.T := NIL; BEGIN
          IF fnt.fnt < NUMBER(v.st.fonts^) THEN
            sf := v.st.fonts[fnt.fnt]
          END;
          IF sf # NIL AND sf # PlttFrnds.noFont THEN
            RETURN ScrnFontExtras.TightBoundingBox(txt, sf)
          END
        END
      END;
      VAR st: VBT.ScreenType; BEGIN
        LOCK v DO st := v.st END;
        IF st # NIL THEN EVAL Palette.ResolveFont(st, fnt) END
      END
    END
  END TightBoundingBox;

BEGIN
END VBTExtras.