Если я не ошибаюсь, этот код из Windows рассылает сообщение:
## Код:
```
PROCEDURE (h: Hook) Omnicast (VAR msg: ANYREC);
      VAR w: Window;
   BEGIN
      w := dir.First();
      WHILE w # NIL DO
         IF ~w.sub THEN w.seq.Handle(msg) END;
         w := dir.Next(w)
      END
   END Omnicast;

   PROCEDURE (s: StdSequencer) Handle (VAR msg: ANYREC);
   (* send message to all windows attached to s *)
      VAR w: Window;
   BEGIN
      IF s.trapEra # Kernel.trapCount THEN Reset(s) END;
      WITH msg: Models.Message DO
         IF msg IS Models.UpdateMsg THEN
            Properties.IncEra;
            IF s.entryLevel = 0 THEN
               (* updates in dominated model bypassed the sequencer *)
               Reset(s);   (* panic reset: clear sequencer *)
               INC(s.modLevel)   (* but leave dirty *)
            END
         END;
         w := dir.First();
         WHILE w # NIL DO
            IF w.seq = s THEN w.BroadcastModelMsg(msg) END;
            w := dir.Next(w)
         END
      | msg: Views.Message DO
         w := dir.First();
         WHILE w # NIL DO
            IF w.seq = s THEN w.BroadcastViewMsg(msg) END;
            w := dir.Next(w)
         END
      ELSE
      END
   END Handle;
```

А он ANYREC кроме Models.Message и Views.Message игнорирует.