<* PRAGMA LL *> INTERFACE HVFill; IMPORT VBT, Split, Axis, ProperSplit; TYPE T <: Public; Public = ProperSplit.T OBJECT METHODS init(ax: Axis.T; ch: VBT.T; fill: VBT.T := NIL): T END; PROCEDURE New(ax: Axis.T; ch: VBT.T; fill: VBT.T := NIL): T; (* "New(...)" is short for "NEW(T).init(...)". *) END HVFill.