TYPE
   MyProposal* = RECORD (Models.Proposal)
   END;
...
VAR myProposal;
innerView.context.Consider (myProposal);

TYPE
   MyContext = POINTER TO RECORD (TextModels.Context);
   END;

t := TextModels.dir.New();
v := TextViews.dir.New(t);

PROCEDURE (obj: Context) SetSize (w, h: INTEGER);
BEGIN
   Properties.PreferredSize (obj.innerView, 50 * Ports.point, 60 * Ports.point, 100 * Ports.point, 200 * Ports.point, 55 * Ports.point, 150 * Ports.point, w, h);

MODULE DemoContextPrint;

IMPORT Views, Ports, Models, Controllers, TextMappers, TextModels, Properties;

TYPE
   View = POINTER TO RECORD (Views.View) END;

   PROCEDURE (v: View) Restore (f: Views.Frame; l, t, r, b: INTEGER);
   VAR w, h: INTEGER;
   BEGIN
      v.context.GetSize(w, h);
      f.DrawOval(0, 0, w, h, Ports.fill, Ports.blue);
   END Restore;

   PROCEDURE (v: View) HandleCtrlMsg (f: Views.Frame;
      VAR msg: Controllers.Message; VAR focus: Views.View);
   VAR wr: TextMappers.Formatter;
   BEGIN
      WITH msg: Controllers.TrackMsg DO
         wr.ConnectTo(v.context.ThisModel()(TextModels.Model));
         wr.WriteString("test"); wr.WriteLn;
      ELSE END
   END HandleCtrlMsg;

   PROCEDURE (v: View) HandlePropMsg (VAR msg: Properties.Message);
   BEGIN
      WITH msg: Properties.FocusPref DO
         msg.hotFocus := TRUE
      ELSE END
   END HandlePropMsg;

   PROCEDURE Deposit*;
   VAR v: View;
   BEGIN
      NEW(v);
      Views.Deposit(v)
   END Deposit;

END DemoContextPrint.

"DemoContextPrint.Deposit; StdCmds.PasteView"

   PROCEDURE (c: Context) SetSize (w, h: INTEGER);
   BEGIN c.w := w; c.h := h
   END SetSize;

   PROCEDURE (v: PanelView) Restore* (f: Views.Frame; l_, t_, r_, b_: INTEGER);
   VAR w, h, last: INTEGER; button: PanelButton; asc, dsc, fw: INTEGER;
   BEGIN
      v.context.GetSize(w, h);
      f.DrawRect(0, 0, w, panelHeightPx * Ports.point, - 1, param.backgroundColor);
      button := v.root;
      WHILE button # NIL DO
         button.context.SetSize(button.w * Ports.point, button.h  * Ports.point);
         Views.InstallFrame(f, button, button.x * Ports.point, button.y * Ports.point, 0, TRUE);
         last := button.x * Ports.point + button.w * Ports.point;
         button := button.next;
      END;
      
      fontStatus.GetBounds(asc, dsc, fw);
      f.DrawString(last + 200 * Ports.point, h DIV 2 + (asc - dsc) DIV 2, param.statusColor, status, fontStatus)
   END Restore;

(c: Context) Consider (VAR p: Proposal), NEW, EMPTY;