OberonCore

PROCEDURE prepare;
BEGIN
 m:=TextModels.dir.New();
 txt.ConnectTo(m);
 v:=TextViews.dir.New(m);
 Views.OpenAux(v,"Результат");
END prepare;

   PROCEDURE InitPage*;
      CONST
         mm = Ports.mm;
      VAR
         v: V.View; c: Models.Context; d: Documents.Document; dm: Models.Model;
         w, h, l, t, r, b: INTEGER; decorate: BOOLEAN;
   BEGIN
      v := V.Focus();
      IF v # NIL THEN
         c := v.context; ASSERT(c IS Documents.Context, 20);
         d := c(Documents.Context).ThisDoc(); dm := d.ThisView().ThisModel();
         d.PollPage(w, h, l, t, r, b, decorate);
         Models.BeginModification(Models.invisible, dm);
         d.SetPage(w, h, 10 * mm, 15 * mm, w - 10 * mm, h - 10 * mm, Documents.decorate);
         Models.EndModification(Models.invisible, dm)
      END
   END InitPage;

MODULE MyWinsize;

IMPORT
   Windows;

PROCEDURE Do*;
VAR w : Windows.Window;
BEGIN
   w := Windows.dir.First();
   IF w # NIL THEN
      w.SetSize(200, 200)
   END
END Do;

END MyWinsize.

   PROCEDURE ResizeDoc;
   BEGIN
      StdCmds.InitLayoutDialog;
      StdCmds.layout.wType := 0;
      StdCmds.layout.width := 40;
      StdCmds.SetLayout
   END ResizeDoc;