MODULE Overlap EXPORTS Main;
IMPORT Trestle, ZChassisVBT, TextVBT, BorderedVBT, ZSplit, TextureVBT,
PaintOp;
IMPORT Rect, Font, RigidVBT, ZChildVBT;
CONST
min = 100.0; (* size in millimeters *)
max = 999.0; (* size in millimeters *)
h = 100; (* width in pixels *)
v = 100; (* height in pixels *)
times14 = "-*-times-*-r-*-*-14-*-*-*-*-*-*-*";
VAR
font := Font.FromName(ARRAY OF TEXT{times14});
ch1 := BorderedVBT.New(TextVBT.New("Hi Mom", fnt := font));
zc1 := NEW(ZChassisVBT.T).init(ch1, TextVBT.New("Mom"));
ch2 := BorderedVBT.New(TextVBT.New("Hi Dad", fnt := font));
zc2 := NEW(ZChassisVBT.T).init(ch2, TextVBT.New("Dad"));
main := ZSplit.New(RigidVBT.FromHV(
TextureVBT.New(PaintOp.Bg), min, min, max, max));
dom := Rect.FromSize(h, v);
BEGIN
ZSplit.Insert(main, zc1, dom);
ZSplit.Insert(main, zc2, dom);
Trestle.Install(main);
Trestle.AwaitDelete(main)
END Overlap.