IMPORT
      Containers, Controllers, Dialog, Properties, Ports, Models, Stores, StdLog, TextViews, Views;

   CONST   mm = Ports.mm;

   TYPE
      View = POINTER TO RECORD (Views.View)
         inner: Views.View;
      END;

   PROCEDURE (v: View) ThisModel (): Models.Model;
   BEGIN
      RETURN v.inner.ThisModel()
   END ThisModel;

   PROCEDURE (v: View) Restore (f: Views.Frame; l, t, r, b: INTEGER);
      VAR msg: Properties.SetMsg; prop: Properties.SizeProp;
   BEGIN
      v.inner.context.SetSize(20*mm, 20*mm); (*попытка изменения размера №2 *)

      Views.InstallFrame(f, v.inner, 10*mm, 10*mm, 0, TRUE);
   END Restore;

   PROCEDURE (v: View) HandleCtrlMsg (f: Views.Frame; VAR msg: Controllers.Message; VAR focus: Views.View);
   BEGIN
      focus := v.inner
   END HandleCtrlMsg;
   
   PROCEDURE Wrap*;
      VAR poll: Controllers.PollOpsMsg; w: View; replace: Controllers.ReplaceViewMsg; msg: Properties.SetMsg; prop: Properties.SizeProp;
   BEGIN
      Controllers.PollOps(poll);
      IF (poll.singleton # NIL) & ~(poll.singleton IS View) THEN
         (*попытка изменения размера №1, перед подменой*)
         NEW(prop);
         prop.width := 20*mm; prop.height := 20*mm;
         prop.valid := {Properties.width, Properties.height};
         prop.known := prop.valid;
         msg.prop := prop;
         Views.HandlePropMsg(poll.singleton, msg);

         NEW(w); w.inner := poll.singleton; Stores.Join(w, w.inner);
         replace.old := poll.singleton; replace.new := w;
         Controllers.Forward(replace);

      ELSE Dialog.Beep
      END
   END Wrap;

   TYPE
      (** SetSizeAction используется для отложенной установки размера view. **)
      SetSizeAction = POINTER TO RECORD (Services.Action)
         view: View;
         width, height: INTEGER
      END;

   (* SetSizeAction *)

   PROCEDURE (a: SetSizeAction) Do;
      VAR m: Models.Model;
   BEGIN
      m := a.view.context.ThisModel();
      Models.BeginModification(Models.notRecorded, m);
      a.view.context.SetSize(a.width, a.height);
      Models.EndModification(Models.notRecorded, m)
   END Do;

   PROCEDURE SetSizeLater (v: View; width, height: INTEGER);
      VAR action: SetSizeAction;
   BEGIN
      NEW(action);
      action.view := v;
      action.width := width;
      action.height := height;
      Services.DoLater(action, Services.now);
   END SetSizeLater;

IF vv.context # NIL THEN
   Views.BeginModification(Views.invisible, vv);
   Views.BeginModification(Views.clean, vv);
   vv.context.SetSize(Views.undefined, Views.undefined);
   Views.EndModification(Views.clean, vv);
   Views.EndModification(Views.invisible, vv);
   Views.Update(vv, Views.keepFrames)
END