What version of VdB? If you hit Ctrl-Alt-Del, does VdB show up in the
task list?
Gary White
Some dBASE Stuff at
http://www.AppTools.com/dbase
parameter formObj
new ProjectMENU(formObj, "root")
class ProjectMENU(formObj, name) of MENUBAR(formObj, name)
with (this)
onInitMenu = class::Root_onInitMenu
endwith
this.MENUFILE = new MENU(this)
with (this.MENUFILE)
text = "File"
endwith
this.MENUFILE.MENUEDIT = new MENU(this.MENUFILE)
with (this.MENUFILE.MENUEDIT)
onClick = class::MENUEDIT_ONCLICK
text = "Edit"
endwith
this.MENUFILE.MENUSEP1 = new MENU(this.MENUFILE)
with (this.MENUFILE.MENUSEP1)
text = ""
separator = true
endwith
this.MENUFILE.MENUVIEW = new MENU(this.MENUFILE)
with (this.MENUFILE.MENUVIEW)
onClick = class::MENUVIEW_ONCLICK
text = "View"
endwith
this.MENUFILE.MENUSEP1 = new MENU(this.MENUFILE)
with (this.MENUFILE.MENUSEP1)
text = ""
separator = true
endwith
this.MENUFILE.MENUEXIT = new MENU(this.MENUFILE)
with (this.MENUFILE.MENUEXIT)
onClick = class::MENUEXIT_ONCLICK
text = "Exit"
endwith
// {Linked Method} form.root.menufile.menuexit.onClick
function MENUEXIT_onClick
return ( form.close() )
function ROOT_onInitMenu
local bApp
bApp = ( TYPE("this.parent.app") == "O" )
if ( not bApp )
this.menuFile.menuOpen.enabled := false
this.menuFile.menuWizard.enabled := false
this.menuFile.menuExit.onClick := ;
{ ; this.parent.parent.parent.close() }
this.menuHelp.menuAbout.enabled := false
endif
return (bApp)
endclass
> // {Linked Method} form.root.menufile.menuexit.onClick
> function MENUEXIT_onClick
> return ( form.close() )
>
You need to add a QUIT to the above.
function MENUEXIT_onClick
form.close()
quit
return
Gary White
Some dBASE Stuff at
http://www.AppTools.com/dbase
dBASE2000 News Groups at
news.dbase2000.com