<html><head><meta http-equiv="content-type" content="text/html; charset=utf-8"></head><body dir="auto"><div>Peter</div><div><br></div><div>Read chapter 4.6 in</div><div><a href="http://www.inf.ethz.ch/personal/wirth/ProjectOberon/PO.System.pdf">http://www.inf.ethz.ch/personal/wirth/ProjectOberon/PO.System.pdf</a></div><div><br></div><div>Standard Oberon display has a User track on the left and a System track on the right.</div><div>W0 is the width of the User track, DW-W0 is the width of the System track.</div><div><br></div><div>br, Jörg</div><div><br>Am 16.05.2014 um 21:44 schrieb <<a href="mailto:peter@easthope.ca">peter@easthope.ca</a>>:<br><br></div><blockquote type="cite"><div><span>When a display is wider than 640 pixels, Oberon.OpenDisplay </span><br><span>opens the left boundary of the displayed area a distance to the </span><br><span>right of the y axis. Specifically, Oberon.Mod has </span><br><span> W0 := DW DIV 8 * 5;</span><br><span> IF W0 < 400 THEN W0 := 0 END;</span><br><span> OpenDisplay(W0, DW - W0, DH);</span><br><span></span><br><span>For example, if DW = 1024 and DH = 768</span><br><span>then W0 = 640 and </span><br><span> OpenDisplay(640, 380, 768);</span><br><span>is executed.</span><br><span></span><br><span>Why not just</span><br><span> OpenDisplay(0, 1024, 768);</span><br><span>or, in general, </span><br><span> OpenDisplay(0, DW , DH);</span><br><span>for any size of display?</span><br><span></span><br><span>There must be a sound reason but it escapes me at present.</span><br><span></span><br><span>Thanks, ... Peter E.</span><br><span></span><br><span>-- </span><br><span>123456789 123456789 123456789 123456789 123456789 123456789 123456789 12</span><br><span>Tel +1 360 639 0202 <a href="http://carnot.yi.org/">http://carnot.yi.org/</a> Bcc: peter at easthope. ca</span><br><span></span><br><span></span><br><span>--</span><br><span><a href="mailto:Oberon@lists.inf.ethz.ch">Oberon@lists.inf.ethz.ch</a> mailing list for ETH Oberon and related systems</span><br><span><a href="https://lists.inf.ethz.ch/mailman/listinfo/oberon">https://lists.inf.ethz.ch/mailman/listinfo/oberon</a></span><br></div></blockquote></body></html>