Моё меню появилось для текста, благодаря этому:## Код:
```
PROCEDURE (c: StdCtrl) GetContextType (OUT type: Stores.TypeName);
   BEGIN
(*       type := "TextViews.View" *)
      type := "RODeadViews.View"
   END GetContextType;
```
Похоже, что контекстное меню поддерживается только для общих контейнеров:
## Код:
```
DEFINITION Containers;
...
      Controller = POINTER TO ABSTRACT RECORD (Controllers.Controller)
...
         (c: Controller) GetContextType (OUT type: Stores.TypeName), NEW, ABSTRACT;
```
