Menu widget i efekt przesuwania ekranu

[Tomasz Fidecki <Tomasz.Fidecki@students.mimuw.edu.pl>]

Czesc.
Jak wyeliminowac efekt przesuwania ekranu w dol przy korzystaniu z
"menu" (wersja znakowa). Przyklad - ponizszy kod:

---------------------------------------------------------------
DEF SUB-MENU sm-Odbiorcy  
  MENU-ITEM mi-Nowy    LABEL "&Nowy"
  RULE  
  MENU-ITEM mi-Koniec  LABEL "&Koniec".

DEF SUB-MENU sm-Pomoc
  MENU-ITEM mi-Pomoc   LABEL "&Pomoc".

DEF MENU mbar MENUBAR
  SUB-MENU sm-odbiorcy LABEL "&Plik"
  SUB-MENU sm-Pomoc    LABEL "&Pomoc".

DEF VAR zmienna AS CHAR INIT "Test".

DEF FRAME ramka1 
  zmienna
WITH ROW 1 SIDE-LABELS CENTERED.

ENABLE ALL WITH FRAMe ramka1.
PAUSE MESSAGE "Teraz bedzie efekt opuszczania ekranu".
ASSIGN DEFAULT-WINDOW:MENUBAR = MENU mbar:HANDLE.
WAIT-FOR CHOOSE OF MENU-ITEM mi-Koniec.

-----------------------------------------------------------------------

Nawet po kompilacji ramka "ramka1" przesuwa sie w dol o jeden wiersz.
Czyzby Progress nie rezerwowal sobie miejsca na "menu"? 
Na pewno mozna to jakos przeskoczyc - patrz menu np w edytorze procedur.
Gdzie cos mi umknelo?

Pozdrawiam

-- 
   _________
  |_   _|_ _| Tomasz Fidecki
    | || _|   mailto:Tomasz.Fidecki@students.mimuw.edu.pl;
    | || |    http://green.pap.waw.pl/~fidecki
    |_||_|    IRC Fido on #plock #polska