mgkit/src/IntArrayView.i3


Copyright (C) 1994, Digital Equipment Corp.

INTERFACE IntArrayView;

<* PRAGMA LL *>

IMPORT Axis, Font, MG, PaintOp;

TYPE
  V <: PublicV;

  Elem = MG.Rectangle OBJECT i: INTEGER END;
  Elems = REF ARRAY OF Elem;

  PublicV = MG.V OBJECT
             <* LL = self.mu *>
             elems     : Elems;
             prefDimPts: ARRAY Axis.T OF REAL;
           METHODS
             init (size                 : CARDINAL;
                   widthPts, heightPts  : REAL;
                   font                 : Font.T     := Font.BuiltIn;
                   prefWidth, prefHeight             := 0.0           ): V
           END;
prefWidth = 0 => prefWidth = size * widthPts prefHeight = 0 => prefHeight = heightPts

PROCEDURE SetColor (v: V; element: CARDINAL; color: PaintOp.ColorScheme); <* LL.sub < v *>
PROCEDURE SetValue (v: V; element: CARDINAL; i: INTEGER); <* LL.sup < v *>
PROCEDURE ClearValue(v: V; element: CARDINAL); <* LL.sup < v *>
PROCEDURE SetFont (v: V; element: CARDINAL; font: Font.T); <* LL.sup < v *>

END IntArrayView.