DIRECTORY Abutters, ViewRec; 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[Abutters.vanilla, [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[Abutters.vanilla, [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[setParentSize: TRUE]], bottom: [NIL, none[]] ], paint: TRUE]; }; }. RAbuttersTest.Mesa Last Edited by: Spreitzer, April 24, 1986 10:49:50 pm PST Κϋ– "cedar" style˜Icode™J™9K˜KšΟk œ˜K˜šΠbx œœ˜Kšœ˜K˜Kšœ˜K˜Kšœœ˜Kšœ œ˜!Kšœœ˜*K˜šΟnœœœ˜$KšœN˜NK˜Kšœ…œ˜ŠKšœ!˜!šœ˜Kšœ˜šœ˜Kšœœ ˜šœœ œ˜Kšœœ˜Kšœ˜—Kšœœ˜Kšœ œ ˜Kšœ˜—Kšœœ˜ —K˜—K˜šŸœœœ˜$KšœN˜NK˜Kšœ…œ˜ŠKšœ…œ˜ŠKšœ!˜!Kšœ!˜!šœ˜Kšœ˜šœ˜Kšœœ ˜šœœ œ˜Kšœœ˜Kšœœ˜Kšœ˜—Kšœœ&œ˜7Kšœ œ ˜Kšœ˜—Kšœœ˜ —K˜—K˜K˜——…—–γ