BBjMenu::insertMenu

Description

Adds a sub menu to the BBjMenu.

Syntax

Return Value	Method
BBjMenu	insertMenu(int `index`, int `ID`, string title)

Parameters

Variable	Description
index	Specifies the 0-based index at which to insert the menu.
ID	Specifies the ID of the menu that will be added.
title	Specifies the title of the menu.

Return Value

Returns the created BBjMenu object.

Remarks

Each sub menu in the menu with an index greater or equal to the specified index is shifted upward to have an index one greater than the value it had previously.

Example

rem 'Insert a sub menu into a 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 = 10
Y = 10
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 the menu bar
myMenuBar! = myWindow!.addMenuBar()

rem 'Add a menu to the menu bar
myMenu! = myMenuBar!.addMenu(-100,"&Menu")

rem 'Insert a sub menu into the menu
mySubMenu! = myMenu!.insertMenu(0,-101,"&Sub Menu")

rem 'Add menu items to the sub menu
mySubMenu!.addMenuItem(-102,"&Sub Menu Item 01")
mySubMenu!.addMenuItem(-103,"S&ub Menu Item 02")

rem 'Register the CALLBACK routines
CALLBACK(ON_CLOSE,APP_CLOSE,mySysGui!.getContext())

rem 'Process Events
process_events

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