BlackBox Component Builder

Robert: The version of StdApi.ThisMask below fixes the issue.

    PROCEDURE ThisMask (param: ARRAY OF CHAR): Views.View;
          VAR v, tv, w: Views.View; c: Containers.Controller; rd: FormModels.Reader; k: INTEGER; label: Dialog.String;
       BEGIN
          v := ThisDialog(param);
          IF v # NIL THEN
             WITH v: Containers.View DO
                c := v.ThisController();
                IF c # NIL THEN
                   c.SetOpts(c.opts - {Containers.noFocus} + {Containers.noCaret, Containers.noSelection});
                   WITH c: FormControllers.Controller DO
                      rd := c.form.NewReader (rd);
                      LOOP
                         rd.ReadView (tv);
                         IF tv = NIL THEN EXIT END;
                         WITH tv: StdTabViews.View DO
                            FOR k := 0 TO tv.NofTabs() - 1 DO
                               tv.GetItem(k, label, w);
                               WITH w: Containers.View DO
                                  w.ThisController ().SetOpts(c.opts)
                               ELSE
                               END
                            END
                         ELSE
                         END
                      END
                   ELSE
                   END
                ELSE Dialog.ShowMsg("#System:NotEditable")
                END
             ELSE Dialog.ShowMsg("#System:ContainerExpected")
             END
          END;
          RETURN v
       END ThisMask