Hello
FUNCTION CreateMainMenu()
LOCAL oMenu, g_oMenuBar := wvtMenu():new():create()
LOCAL oSubMenu
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 )
oSubMenu := WvtMenu():new():create()
oMenu:Caption := "S Segundo menu"
oMenu:AddItem( "S subopcion dos-uno" , {|| alert("dos uno") } )
oMenu:AddItem( "S subopcion dos-dos" , {|| alert("dos dos") }
)
oMenu:AddItem( "-")
oMenu:AddItem( "S subopcion dos-tres" , {|| alert("dos tres") } )
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") } )
oMenu:AddItem( "", oSubMenu )
g_oMenuBar:addItem( "",oMenu )
RETURN g_oMenuBar
Regards
Pritpal Bedi, INDIA-USA
--
View this message in context:
http://www.nabble.com/about-gtwvg-tp15446361p15446504.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
