>>Menu d:\foxpro\pagmodeltools\menus\mainmenu.mnx has the following errors: >> Unknown ATOOLBARS - Undefined >>>>
>>*** 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 events >>>>
>>* 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 >>cancel >>>>