For text views, the width of the widow is equal to the page width.
To overrule this, you must set the options of the text view's
controller to "fit to window". The following example demonstrates
this and opens an empty text view of 3 by 6 cm.
Have a nice weekend,
- D. Gruntz, Oberon microsystems AG
MODULE Test;
IMPORT Ports, TextViews, TextModels, Views, Documents, Containers;
PROCEDURE Do*;
VAR d: Documents.Document; c: Containers.Controller;
BEGIN
d :=3D =
Documents.dir.New(TextViews.dir.New(TextModels.dir.New()),=20
30*Ports.mm, 60*Ports.mm);
c :=3D d.ThisController();
c.SetOpts(c.opts + {Documents.winWidth} - =
{Documents.pageWidth});
Views.OpenView(d);
END Do;
END Test.Do .