MODULE BoundDrawContext;
IMPORT DrawContextClass;
IMPORT Line;
IMPORT LinoText;
REVEAL
  T = Public BRANDED "BoundDrawContext" OBJECT
  OVERRIDES
    gLine := GLine;
    gText := GText;
  END;

PROCEDURE GLine(self: T; l: Line.T) =
  BEGIN self.gBox(Line.GetBoundRect(l)); END GLine;

PROCEDURE GText(self: T; t: LinoText.T) =
  BEGIN self.gBox(self.textBounder.bound(t)); END GText;

BEGIN
END BoundDrawContext.