MODULE ObxLabelLister;
(**

   project   = "BlackBox"
   organization   = "www.oberon.ch"
   contributors   = "Oberon microsystems"
   version   = "System/Rsrc/About"
   copyright   = "System/Rsrc/About"
   license   = "Docu/BB-License"
   changes   = ""
   issues   = ""

**)

   IMPORT Views, Controls, FormModels, FormControllers, StdLog;

   PROCEDURE List*;

      VAR c: FormControllers.Controller; rd: FormModels.Reader; v: Views.View;
   BEGIN
      c := FormControllers.Focus();
      IF c # NIL THEN
         rd := c.form.NewReader(NIL);
         rd.ReadView(v);
         WHILE v # NIL DO
            IF v IS Controls.Control THEN
               StdLog.String(v(Controls.Control).label); StdLog.Ln
            END;
            rd.ReadView(v)
         END
      END
   END List;
END ObxLabelLister.