[Oberon] [Fwd: Re: Native Oberon, TextFrames.barW.]

[Peter Easthope]

After a careless reply to Jörg rather than the list ...

On Fri, October 16, 2015 5:09 pm, Jörg Straube wrote:
> The height of the title bar is called „menuH“. And it is dependent on
> the height of the default font.
>
> „barW" is the width of the scroll bar along the left border of the text
> frame.

OK! Thanks!  All seems obvious after you have explained.

For parallelism to menuH, I'll imagine that barW was named
scrollW at birth.

> To make it visually appealing, the intersection of the horizontal
> title bar with the vertical scroll bar shall be a square.

The initialization,

  IF Modern THEN menuH := Fonts.Default.height + 8
  ELSE menuH := Fonts.Default.height + 2
  END;
  barW := Fonts.Default.height + 2;

can also be expressed without a comparison and with
the square intersection more explicit.

  menuH := Fonts.Default.height + 2;
  barW := menuH;
  INC(menuH, ORD(Modern) * 6);

Thanks,                 ... Peter E.

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