AbuttersTest:
CEDAR
PROGRAM
IMPORTS Abutters, ViewRec
={
Viewer: TYPE = Abutters.Viewer;
Abutter: TYPE = Abutters.Abutter;
RecordViewer: TYPE = ViewRec.RecordViewer;
Test1:
PROC
RETURNS [z: Abutter] = {
a: Abutter ← z ← Abutters.Create[info: [name: "Abutters 1 Test"]];
av: Viewer ← a.QuaViewer[];
rv1: RecordViewer ← ViewRec.ViewInterface[name: "Rope", viewerInit: [name: "r1", parent: av, wy: 000, ww: 500, wh: 100], otherStuff: NIL];
rvv1: Viewer ← rv1.RVQuaViewer[];
Abutters.SetLayout[
a: a,
rules: [
left: [NIL, none[]],
right: [
NIL, parallel[
LIST[
[NIL, stretch[[rvv1]]]
]]],
top: [LIST[[rvv1]], none[]],
bottom: [NIL, none[]]
],
paint: TRUE];
};
Test2:
PROC
RETURNS [z: Abutter] = {
a: Abutter ← z ← Abutters.Create[info: [name: "Abutters 2 Test"]];
av: Viewer ← a.QuaViewer[];
rv1: RecordViewer ← ViewRec.ViewInterface[name: "Rope", viewerInit: [name: "r1", parent: av, wy: 000, ww: 500, wh: 100], otherStuff: NIL];
rv2: RecordViewer ← ViewRec.ViewInterface[name: "Rope", viewerInit: [name: "r2", parent: av, wy: 100, ww: 500, wh: 100], otherStuff: NIL];
rvv1: Viewer ← rv1.RVQuaViewer[];
rvv2: Viewer ← rv2.RVQuaViewer[];
Abutters.SetLayout[
a: a,
rules: [
left: [NIL, none[]],
right: [
NIL, parallel[
LIST[
[NIL, stretch[[rvv1]]],
[NIL, stretch[[rvv2]]]
]]],
top: [LIST[[rvv1], [rvv2]], none[]],
bottom: [NIL, none[]]
],
paint: TRUE];
};
}.