Copyright (C) 1992, Digital Equipment Corporation
All rights reserved.
See the file COPYRIGHT for a full description.
by Steve Glassman and Stephen Harrison
Last modified on Wed Jul 22 01:39:07 1992 by steveg
<*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.