Hi Pritpal:
I'm interesting in add submenus to mainmenu
it's posible?
if yes , may you give me an example?
my mainmenu is:
FUNCTION CreateMainMenu()
LOCAL oMenu, g_oMenuBar := wvtMenu():new():create()
oMenu := WvtMenu():new():create()
oMenu:Caption:= "Primer menu"
oMenu:AddItem( "subopcion uno-uno", {|| alert("uno uno") } )
oMenu:AddItem( "subopcion uno-dos", {|| alert("uno dos") } )
oMenu:AddItem( "-" )
oMenu:AddItem( "Salir" , {|| salir() } )
g_oMenuBar:addItem( "",oMenu )
oMenu := wvtMenu():new():create()
oMenu:Caption := "Segundo menu"
oMenu:AddItem( "subopcion dos-uno" , {|| alert("dos uno") } )
oMenu:AddItem( "subopcion dos-dos" , {|| alert("dos dos") } )
oMenu:AddItem( "-")
oMenu:AddItem( "subopcion dos-tres" , {|| alert("dos tres") } )
g_oMenuBar:addItem( "",oMenu )
RETURN g_oMenuBar
best regards
Ciro
--
http://sistemascvc.tripod.com (la casa del no2imp / the no2imp home )
http://www.oohg.org ( Object Oriented Harbour GUI, more simple, more powerfull )
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
