MODULE TestCont;

   IMPORT log := StdLog, Containers, TextControllers, FormControllers;
   
   PROCEDURE show*;
      VAR c: Containers.Controller;
   BEGIN
      c := Containers.Focus();
      WITH
         | c : TextControllers.Controller DO log.String('text controller');
         | c : FormControllers.Controller DO log.String('form controller');
         ELSE log.String('unknown controller');
      END;
      log.Ln;
   END show;
END TestCont.

(!) "StdCmds.OpenToolDialog('Test/Rsrc/Form.odc', 'test')"
(!) "StdCmds.OpenAuxDialog('Test/Rsrc/Form.odc', 'test')"

PROCEDURE Open* (v: Views.View; title: ARRAY OF CHAR;
                           loc: Files.Locator; name: Files.Name; conv: Converters.Converter;
                           asTool, asAux, noResize, allowDuplicates, neverDirty: BOOLEAN);

flags-: SET
Флаги, специфичные для окна. Зарезервировано для будущего использования.

   PROCEDURE show*;
      VAR v, subv: Views.View; m: Models.Model; rd: FormModels.Reader;
   BEGIN
      v := MtBrowser.FrontFocus();
      ASSERT(v # NIL, 20);
      m := v.ThisModel();
      ASSERT(m # NIL, 21);
      WITH m: FormModels.Model DO
            rd := m.NewReader(NIL);
            rd.ReadView(subv);
            WHILE (subv # NIL) & ~(subv IS TextViews.View) DO
               rd.ReadView(subv)
            END;
            IF subv # NIL THEN
               log.String('text view'); log.Ln;
            END;
      END;
   END show;

TRAP 21  (precondition violated)

 TestCont.show   [0000003AH]
   .m   Models.Model   NIL
   .rd   FormModels.Reader   NIL
   .subv   Views.View   NIL
   .v   Views.View   [011FAED0H]