> -- Info21 писал(а):
> Omnicast разошлет ANYREC.Но -- только видимым вьюшкам по разу.
Вот, пробовал (в 1.5). Controllers.Message не приходит.
## Код:
```
PROCEDURE (v: View) HandleModelMsg (VAR msg: Models.Message);
   BEGIN
      WITH msg: Msg2 DO
         Log.String("Пришло сообщение2:"); Log.Int(msg.x); Log.Ln
      ELSE
      END
   END HandleModelMsg;
   
   PROCEDURE (v: View) HandleCtrlMsg (f: Views.Frame; VAR msg: Controllers.Message; VAR focus: Views.View);
   BEGIN
      (* here comes the behavior which is specific to this wrapper -
         it modifies the wrapped view's behavior *)
      WITH msg: Msg1 DO
         Log.String("Пришло сообщение1:"); Log.Int(msg.x); Log.Ln
      ELSE
      END;
      focus := v.inner   (* forward all controller messages to wrapped view *)
   END HandleCtrlMsg;

   PROCEDURE Send* (x: INTEGER);
      VAR   msg1: Msg1; msg2: Msg2;
   BEGIN
      msg1.x := x; Views.Omnicast(msg1);
      msg2.x := x; Views.Omnicast(msg2)
   END Send;
```
