Consultor Eletrônico

Status: Unverified

FACT(s) (Environment):

UNIX

SYMPTOM(s):

Defining a menu using the Progress character executable.

Changing the label of a sub-menu dynamically.

Sub-menu displays "ctrl-@" instead of "->" to indicate that there is a menu below it.

CAUSE:

This is a known issue.

FIX:

If creating the sub-menu dynamically, then assign its parent last.

e.g.:

CREATE SUB-MENU s-test
ASSIGN Label = "List"
parent = s-parent-menu-hdl.

Otherwise, define another "dummy" menubar to assign to the window before making the change to the menu label. Then, assign the real menu back to the window.

e.g.:

DEFINE MENU dummy MENUBAR.
...
ON {whatever}
DO:
ASSIGN
CURRENT-WINDOW:MENU-BAR = MENU dummy:HANDLE
SUB-MENU sm1:LABEL = SUB-MENU sm1:LABEL + "*"
CURRENT-WINDOW:MENU-BAR = MENU real:HANDLE.
END.

This should result in a smooth transition (no flashing). The re-assignment of the menubar allows it to be reformatted correctly.