PROCEDURE RecalcLayout (v: View);
      VAR w, h, sep: INTEGER; c: Context;
   BEGIN
      v.context.GetSize(w, h);
      sep := h DIV 3;   (* separate the two views at 1/3 of the container's height *)
      c := v.top; c.l := border; c.t := border; c.r := w - border; c.b := sep - border;
      c := v.bottom; c.l := border; c.t := sep + border; c.r := w - border; c.b := h - border
   END RecalcLayout;

v.context.GetSize(w, h);

c := v.top;

c.l := border; c.t := border; c.r := w - border; c.b := sep - border;

IMPORT StdLog;

TYPE
   Field = POINTER TO RECORD
      i: INTEGER;
   END;
   MyC = POINTER TO RECORD
      top: Field;
   END;

PROCEDURE Sea (m: MyC);
VAR
   c: Field;
BEGIN
   m.top := c;
   c.i := 1024;
END Sea;

PROCEDURE Start*;   
VAR
   v: MyC;
BEGIN
   NEW (v);
   NEW (v.top);
   Sea (v);
   StdLog.Ln;
   StdLog.Int (v.top.i)
END Start;

   PROCEDURE NewContext (v: Views.View; base: View): Context;
      VAR c: Context;
   BEGIN
      NEW(c);
      c.view := v; c.base := base;
      v.InitContext(c); Stores.Join(v, base);
      RETURN c
   END NewContext;

   PROCEDURE NewTwin* (top, bottom: Views.View): Views.View;
      VAR v: View;
   BEGIN
      NEW(v);
      v.top := NewContext(top, v); v.bottom := NewContext(bottom, v);
      NEW(v.ident); Stores.Join(v, v.ident); v.focus := v.bottom;
      RETURN v
   END NewTwin;