BBjTopLevelWindow::addMenuBar

Description

Adds a menu bar to the BBjWindow.

Syntax

Return Value

Method

BBjMenuBar

addMenuBar()

Parameters

None.

Return Value

Returns the BBjMenuBar object of the window.

Remarks

Replaces an existing menu bar.

Example

rem 'Add a menu bar/menu/menu items to a Window

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(-1,"&First")

rem 'Add menu items to the menu
myMenu!.addMenuItem(-2,"&Sub Item 01",1,0)
myMenu!.addMenuItem(-3,"S&ub Item 02",1,0)

rem 'Add a sub menu to the menu
mySubMenu! = myMenu!.addMenu(-4,"Su&b Item 03")

rem 'Add menu items to the sub menu
mySubMenu!.addMenuItem(-5,"Sub Sub Item 04",1,0)
mySubMenu!.addMenuItem(-6,"Sub Sub Item 05",1,0)

rem 'Add a seperator the sub menu
mySubMenu!.addSeparator()
mySubMenu!.addMenuItem(-7,"Sub Sub Item 06",1,0)
mySubMenu!.addMenuItem(-8,"Sub Sub Item 07",1,0)

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

See Also

BBjAPI

BBjSysGui

BBjControl

BBjWindow

SETMENU Mnemonic - Set or Replace Menu

See the BBj Object Diagram for an illustration of the relationship between BBj Objects.