How to create and add submenu options in virtuoso window

Hi,

Have you tried this?
(hiAddMenuItem <VGIMenu> setupItem)

with <VGIMenu> being the Pulldown Menu VGI. You can get a list of all Pulldown Menus in the CIW with (hiGetBannerMenus (window 1))

Max

Hello Max,

Thanks for quick reply.

Still am not getting the desired result as when am clicking VGI options ...CADENCE menu is undisplayable.

Can you please suggest what the error and how can i correct it?

procedure(Menu()
let((setupItem )
setupItem = hiCreateMenuItem(
?name 'Setup
?itemText "Setup"
?callback "(println \"WELCOME TO CADENCE\") Switches()" )

(hiAddMenuItem VGIMenuItem setupItem)

Menu = (hiCreatePulldownMenu
(gensym)
"CADENCE"
(list setupItem))

(hiInsertBannerMenu window( 1 ) Menu (length (hiGetBannerMenus (window 1))) )
)
)

Thomas

Hello Max,

Thanks for quick reply.

Still am not getting the desired result as when am clicking VGI options ...CADENCE menu is undisplayable.

Can you please suggest what the error and how can i correct it?

procedure(Menu()
let((setupItem )
setupItem = hiCreateMenuItem(
?name 'Setup
?itemText "Setup"
?callback "(println \"WELCOME TO CADENCE\") Switches()" )

(hiAddMenuItem VGIMenuItem setupItem)

Menu = (hiCreatePulldownMenu
(gensym)
"CADENCE"
(list setupItem))

(hiInsertBannerMenu window( 1 ) Menu (length (hiGetBannerMenus (window 1))) )
)
)

Thomas

Hi Thomas,

I don't quit get your code - you create a menu item (setupItem) and then make a call to hiAddMenuItem specifying VGIMenuItem as first argument. In fact the first argument to hiAddMenuItem() needs to be the containing menu - the variable VGIMenuItem implies that this is a menu item though. Subsequently  you specify setupItem as a menu item in the CADENCE menu...I thought you wanted it in the VGI menu????
Let me explain again how this works, when you create a pull down menu you can populate it with menu items at the time when you create the menu or lateron when with hiAddMenuItem(). Here is an example of a CADENCE pulldown menu that is populated with one item during it's creation and another one lateron.

(let (item1 item2)
   item1 = (hiCreateMenuItem
               ?name (gensym)
               ?itemText "Click me..."
               ?callback "(println \"ooops...I just got clicked!\")" )
   item2 = (hiCreateMenuItem
               ?name (gensym)
               ?itemText "Never click me!"
               ?callback "(println \"I told you not to click me didn't I?\")")
   playMenu = (hiCreatePulldownMenu
                  (gensym)
                  "CADENCE"
                  (list item1))
   (hiAddMenuItem playMenu item2)
   (hiInsertBannerMenu window( 1 ) playMenu (length (hiGetBannerMenus (window 1))) ))