[Oberon] Native Oberon, TextFrames.barW.

[Peter Easthope]

In the body of Native Oberon TextFrames, barW is initialized,
barW := Fonts.Default.height + 2;

This is the height of the grey bar in the menu frame, allowing one pixel
of clearance above the text and one pixel below?  Would barH representing
"bar height" be more appropriate?

Then barW is used, for example,
left := barW + Fonts.Default.height DIV 2;

left being derived from height values seems odd.

Any insights?

Thanks,                       ... Peter E.





-- 
123456789 123456789 123456789 123456789 123456789 123456789 123456789 12
Tel +1 360 639 0202 or  +1 604 822 7107
http://easthope.ca/peter.html Bcc: peter at easthope. ca



-- 
Telephone 1 360 639 0202 or +13606390202 or 12506293757.
Bcc: peter at easthope.ca  http://easthope.ca/Shop.html