[Oberon] WinAos 2.02

[Dan Parnete]

John Drake wrote:

>Ok, I finally figured out why the menu wasn't
>showing up.  Actually it was being obscured by
>the Windows toolbar.  The only way around this
>(that I see) is to use a lower Oberon screen 
>size:
> 
>like "Aos.Call Win32AosDisplay.Install 1024 768 ~"
>
>If there was some way to "raise" the menu up
>a few centimeters that would be great.
>Dan Parnete's "BlueBottle for Windows" 
>distribution does this.
>
>Regards,
>
>John M. Drake
>  
>
Hi John,

To raise the menu you have to modify the MainMenu.Window this way:

1. Add a constant WindowsOffset = 60. This is the value I use for 
Windows XP 1024x768. You will adjust it us you like.
2. Add the constant to this line in New method:
            manager.Add(ENTIER(view.range.l), ENTIER(view.range.b) - 
GetHeight() - WindowsOffset, SELF, {});
2. Add the constant to this line in SetOriginator method:
            manager.SetWindowPos(SELF, ENTIER(view.range.l), 
ENTIER(view.range.b) - GetHeight() - WindowsOffset);

    This is not the WinAos fault, but comes from BlueBottle witch use 
hard coded position and dimension for window display. I have proposed to 
Felix to sustain in ETH for a configuration section where to define 
initial position and dimension for various applications. Porting from 
BlueBottle will be easier. In Windows we lose space for the title and 
task bar. In BBw I have modified some modules for just reducing window 
height from the default 720 to 650. And I have to do that for every new 
version.

Dan Parnete