Copyright (C) 1994, Digital Equipment Corp.
by Steve Glassman and Stephen Harrison
<*PRAGMA LL*>
INTERFACE Grid;
IMPORT Axis, MG;
TYPE Array = REF ARRAY OF ARRAY OF MG.Rectangle;
TYPE
V <: PublicV;
PublicV = MG.V OBJECT
<* LL = self.mu *>
a : Array;
(* two dimensional array [rows x cols] of MG.Rectangles *)
group: MG.Group;
(* MGPublic.Pos(group) is northwest corner of grid *)
size: ARRAY Axis.T OF REAL;
(* (width * cols, height * rows) *)
METHODS
<* LL <= self.mu *>
init (rows, cols: CARDINAL; width, height: REAL): V;
END;
END Grid.