>I am moving a foxpro2.6 app to windows.
>
>Every thing works satisfactury except these menus.
>
>Fox some reason my sample code dissapeared.You can use < pre > tag ( w/o spaces) to preserve your code and formatting
>Here it is again.
>>picoeps = "@*T Sales;Returns;Product Lookup;Open Cashdrawer;EXit"
>mnuoeps = 2
>@00.05,00.05 get mnuoeps pict picoeps SIZE 2,24,0
>read
>
>I would like to use this type of menu if possible. I have almost 150 similarly coded.
Default choice doesn't work for me even in Fox2.6. However, you can use OBJECT clause of the READ command to get it to work.
picoeps = "@*T Sales;Returns;Product Lookup;Open Cashdrawer;EXit"
mnuoeps = 2
@00.05,00.05 get mnuoeps pict picoeps SIZE 2,24,0
READ OBJECT (mnuoeps )
--sb--