BBjPopupMenu::removeMenuAt

Description

In BBj 3.0 and higher, this method removes a submenu from a BBjPopupMenu.

Syntax

Return Value	Method
void	removeMenuAt(int index)

Parameters

Variable	Description
index	Specifies the 0-based index of the menu to be removed.

Return Value

None.

Remarks

Each submenu in the menu with an index greater than the removed sub menu's index is shifted downward to have an index one smaller than the value it had previously.

Example

rem 'Remove a menu from a popup menu

rem 'Obtain the instance of the BBjAPI object
let myAPI! = BBjAPI()

rem 'Open the SysGui device
SYSGUI = UNT
OPEN (SYSGUI)"X0"

rem 'Obtain the instance of the BBjSysGui object
let mySysGui! = myAPI!.getSysGui()

rem 'Set addWindow param values
X = 100
Y = 100
WIDTH = 200
HEIGHT = 200
TITLE$="BBj Window"

rem 'Set the current context
mySysGui!.setContext(0)

rem 'Create a window with a title in the current context
myWindow! = mySysGui!.addWindow(X,Y,WIDTH,HEIGHT,TITLE$)

rem 'Create a button
myButton! = myWindow!.addButton(1,50,50,90,30,"OK")

rem 'Add a popup menu to the button
myPopupMenu! = myButton!.addPopupMenu()

rem 'Add a sub menu to the popup menu
mySubMenu! = myPopupMenu!.addMenu(-100,"Su&b Menu")

rem 'Add menu items to the sub menu
myItem1! = mySubMenu!.addMenuItem(-101,"Item 1")
myItem2! = mySubMenu!.addMenuItem(-102,"Item 2")

rem 'Add a sub menu to the popup menu
mySubMenu! = myPopupMenu!.addMenu(-200,"Su&b Menu 1")

rem 'Add menu items to the sub menu
myItem1! = mySubMenu!.addMenuItem(-201,"Sub Menu Item 1")
myItem2! = mySubMenu!.addMenuItem(-202,"Sub Menu Item 2")

rem 'Remove a menu from the popup menu
myPopupMenu!.removeMenuAt(0)

rem 'Register the CALLBACK routines
CALLBACK(ON_BUTTON_PUSH,OK,mySysGui!.getContext(),myButton!.getID())
CALLBACK(ON_POPUP_ITEM_SELECT,Item1,myPopupMenu!.getID(),myItem1!.getID())
CALLBACK(ON_POPUP_ITEM_SELECT,Item2,myPopupMenu!.getID(),myItem2!.getID())
CALLBACK(ON_CLOSE,APP_CLOSE,mySysGui!.getContext())

rem 'Process Events
process_events

rem 'Callback routine invoked when the user clicks the button
OK:
    i = msgbox("OK Button was selected")
return

rem 'Callback routine invoked when the user selects the first item
Item1:
    i = msgbox("Item 1 was selected")
return

rem 'Callback routine invoked when the user selects the second item
Item2:
    i = msgbox("Item 2 was selected")
return

rem 'Callback routine called when the user closes the application window
APP_CLOSE:
release