As you will recall, ideally to open a new view you should only have to do
this:
NEW(v);
Views.Open( v, defLoc, title, NIL );
My workaround so that I can have the window open to larger than 4 by 6" is
this:
NEW(v);
Views.Deposit(v);
StdCmds.Open;
w := Windows.dir.Focus(FALSE);
w.SetTitle( title );
w.SetSize(
RealToInt( viewWidthInches * 96 ) + 12,
RealToInt( viewHeightInches * 96 ) + 12);
HostWindows.Idle;
In addition to this, I have to break my single command into two separate
commands to allow for a "lazy" window update which removes the
unneccessary scroll bars. :-/
Anyone have any suggestions for a better way of doing this?
Thanks!
-- Marc Martin, marc.martin@msd.ds.boeing.com