I have written a table based menu system for my application.

I can write a procedure into a memo field of the menu table for a menu bar.

When I build the menu I build a class definition file with the procedures for each menu bar into a variable. I strtofile() the variable to a file and set procedure to the file.

I assign each procedures (method) a sys(2015) name preceeded by a "P".

An actual generated class definition file looks like this :

Define class MenuPro as Custom
cAppl = "EQUIP"
procedure P_0T80X4XZI
select (_screen.activeform.PrimaryTable)
if contains("specno") and not empty(specno)
replace specno with ""
= _screen.activeform.ForceChange()
endif
if contains("spec_id") and not empty(spec_id)
replace spec_id with ""
= _screen.activeform.ForceChange()
endif
if contains("eq_type") and not empty(eq_type)
replace eq_type with ""
= _screen.activeform.ForceChange()
endif
= _screen.activeform.Refresh()
procedure P_0T80X4XZJ
oform.SetFilter("")

... etc ...

enddefine

Then I :
private oMenuPro
oMenuPro = createobject("MenuPro")

and put :

"= oMenuPro.P_0T80X4XZI()" into the on selection bar statement for the proper bar.

The procedure runs fine when I test it as a *.app but not when I run it as an *.exe file.

When I run it as an *.exe I get the message "property P_0T80X4XZI not found" then a C00005 error, a mismatched pushjmp/popjmp call then bye-bye off to windows 2000.