I am trying to dynamically add menu-items to a UIB generated menu much the same as applications keep a "Recent History" list.
I can successfully create the menu-item using code similar to this:
Sub-Menu m_Test_1 is a UIB created menu-item.
def var m-test as widget-handle.
Create menu-item m-test
assign subtype = "normal"
parent = sub-menu m_test_1:handle
label = "Test Menu"
triggers:
on choose persistent run Displaytext in this-procedure
end triggers.
end.
PROCEDURE displaytext :
message "Here I am" view-as alert-box.
END Procedure.
However when the menu-item is selected, I receive the following error:
"Mismatched parameters passed to procedure Displaytext (3230)."
As no parameters are requested or expected, can anyone tell me why this error is occurring?
Progress V8.3C
Windows NT 4
Thanks in advance
Jatsad
I can successfully create the menu-item using code similar to this:
Sub-Menu m_Test_1 is a UIB created menu-item.
def var m-test as widget-handle.
Create menu-item m-test
assign subtype = "normal"
parent = sub-menu m_test_1:handle
label = "Test Menu"
triggers:
on choose persistent run Displaytext in this-procedure
end triggers.
end.
PROCEDURE displaytext :
message "Here I am" view-as alert-box.
END Procedure.
However when the menu-item is selected, I receive the following error:
"Mismatched parameters passed to procedure Displaytext (3230)."
As no parameters are requested or expected, can anyone tell me why this error is occurring?
Progress V8.3C
Windows NT 4
Thanks in advance
Jatsad