3 pytania na ozywienie listy

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

1. Czy istnieje mozliwosc de-xkodowania tresci procedur?
   Przez przypadek usunalem kody zrodlowe aplikacji i
   dysponuje tylko xkodami.

2. Czy ktorys z szanownych listowiczow zna zastosowanie
   "key function" o nazwie REPAINT??
   W dokumentacji nie opisana, zas we wbudowanym helpie
   jest tylko wzmianka niczego nie wyjasniajaca. Moze jest
   to forma odswiezania ekranu (czego brakuje w Progressie).
   Jednakze moje proby wymuszenia (APPLY "REPAINT"..) nie 
   dostarczyly odpowiedzi na pytanie.

3.
Dlaczego przy wywolywaniu procedur zawierajacych 
statyczne menu, przy powrocie do procedury wywolujacej, 
menu nie jest widoczne (tryb znakowy). Przyklad - ponizej. 
Bez znaczenia jest tu fakt wywolania rekursywnego. Przy
dwoch roznych procedurach Progress zachowuje sie identycznie.
Pewnym rozwiazaniem jest po powrocie z procedury wolanej
ponowna deklaracja menu. Ale ta metoda wydaje sie nieelegancka.


/* ------------ test.p - test menu --------------- */
DEF SUB-MENU sm1
  MENU-ITEM mi3 LABEL "MenuItem3".

DEF MENU mm MENUBAR
  SUB-MENU  sm1 LABEL "Submenu1"
  MENU-ITEM mi1 LABEL "Koniec"
  MENU-ITEM mi2 LABEL "Rekursja".

ON CHOOSE OF MENU-ITEM mi2 DO:
  RUN VALUE(THIS-PROCEDURE:FILE-NAME).
  MESSAGE "Czemu po powrocie z rekursji nie widac menu???"
  VIEW-AS ALERT-BOX.
  /* alternatywa ???? */
  /* ASSIGN DEFAULT-WINDOW:MENUBAR = MENU mm:HANDLE. */
END.

ASSIGN DEFAULT-WINDOW:MENUBAR = MENU mm:HANDLE.
WAIT-FOR CHOOSE OF MENU-ITEM mi1.
/* ------------------------------------------------ */

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