TYPE
   Model = POINTER TO RECORD (Models.Model)
      
   END;
   View1 = POINTER TO RECORD (Views.View)
      model: Model
   END;
   View2 = POINTER TO RECORD (Views.View)
      model: Model
   END;
   
PROCEDURE (obj: View1) A, NEW;
...
END A;

PROCEDURE (obj: View2) HandleCtrlMsg (f: Views.Frame; VAR msg: Controllers.Message; VAR focus: Views.View);
BEGIN
   WITH msg: Controllers.EditMsg DO
      IF msg.op = Controllers.pasteChar THEN
         IF msg.char = "2" THEN
            (* как из этого места вызвать метод А? *)
         END
      END
   ELSE
   END
END HandleCtrlMsg;

PROCEDURE Start*;
VAR
   v1: View1;
   v2: View2;
   m: Model;
BEGIN
   NEW (m);
   ...
   NEW (v1);
   v1.model := m;
   ...
   NEW (v2);
   v2.model := m;
   ...
END Start;

View2 = POINTER TO RECORD (Views.View)
      v1: View1;
      model: Model
END;