Menu d:\foxpro\pagmodeltools\menus\mainmenu.mnx has the following errors: Unknown ATOOLBARS - UndefinedATOOLBARS is a public array defined and populated in setup.prg. The error can be ignored and everything seems to work OK but it's presence suggests I need to do something more that I haven't done.
*** startup.prg close tables all _screen.BackColor = RGB(207,207,207) _screen.caption = 'PAG Model Tools' _screen.Closable = .f. _screen.WindowState = 2 clear set path to .\PAGModeltools,.\PAGModeltools\forms, .\PAGModeltools\reports, ; .\PAGModeltools\programs, .\classes, .\PAGModeltools\menus, .\PAGModeltools\other,; .\PAGModeltools\documentation, .\pagmodeltools\help set deleted on set procedure to tools_proc set seconds on SET CPDIALOG OFF set reportbehavior 80 set exclusive on set exact on set help to modeltools.chm public authlevel authlevel = 9 reporton = .f. USE userdata * Release all Visual FoxPro toolbars public aToolbars local i dimension aToolBars[14,2] #define TB_FORMDESIGNER_LOC "Form Designer" #define TB_STANDARD_LOC "Standard" #define TB_LAYOUT_LOC "Layout" #define TB_QUERY_LOC "Query Designer" #define TB_VIEWDESIGNER_LOC "View Designer" #define TB_COLORPALETTE_LOC "Color Palette" #define TB_FORMCONTROLS_LOC "Form Controls" #define TB_DATADESIGNER_LOC "Database Designer" #define TB_REPODESIGNER_LOC "Report Designer" #define TB_REPOCONTROLS_LOC "Report Controls" #define TB_PRINTPREVIEW_LOC "Print Preview" #define WIN_COMMAND_LOC "Command" #DEFINE WIN_Properties_LOC "Properties" #DEFINE WIN_Document_LOC "Document view" aToolBars[1,1] = TB_FORMDESIGNER_LOC aToolBars[2,1] = TB_STANDARD_LOC aToolBars[3,1] = TB_LAYOUT_LOC aToolBars[4,1] = TB_QUERY_LOC aToolBars[5,1] = TB_VIEWDESIGNER_LOC aToolBars[6,1] = TB_COLORPALETTE_LOC aToolBars[7,1] = TB_FORMCONTROLS_LOC aToolBars[8,1] = TB_DATADESIGNER_LOC aToolBars[9,1] = TB_REPODESIGNER_LOC aToolBars[10,1] = TB_REPOCONTROLS_LOC aToolBars[11,1] = TB_PRINTPREVIEW_LOC aToolBars[12,1] = WIN_COMMAND_LOC aToolBars[13,1] = WIN_PROPERTIES_LOC aToolBars[14,1] = WIN_DOCUMENT_LOC for i = 1 to alen(aToolBars,1) if wvisible(aToolBars[i,1]) aToolBars(i,2) = .t. hide window (aToolBars[i,1]) endif endfor do form splash do mainmenu.mpr read eventsThe menu code is:
* cancel frmSplash.release *** Show all VFP toolbars that were previously hidden local i for i = 1 to alen(aToolBars,1) if aToolBars[i,2] show window (aToolBars[i,1]) endif endfor *** set sysmenu to default set help to _screen.closable = .t. clear events cancelThanks for any insights.