Получить модель контекста, куда встроено ваше отображение, довольно просто через
v.context.ThisModel()

останется только привести к типу текстовой модели, и можете подключать сканнер и форматтер, чтобы писать в неё
v.context.ThisModel()(TextModels.Model)


Пример модуля для вашей задачи:
## Код:
```
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"
```
