BBjTabCtrl::setEnabledAt

rem 'Set a tab to be disabled in a tab control

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

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

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

rem 'Set addWindow param values
let X = 10
let Y = 10
let WIDTH = 400
let HEIGHT = 400
let TITLE$ = "BBj Window"

rem 'Create a window, initialy invisible
let myWindow! = mySysGui!.addWindow(X,Y,WIDTH,HEIGHT,TITLE$,$00000012$)

rem 'Add a tab control to the window
let myTabCtrl! = myWindow!.addTabCtrl(101,50,50,200,200)

rem 'Create a child window
let myChildWindow! = myWindow!.addChildWindow(200,75,75,100,100,"",$$,1,$$)

rem 'Add a static text control on the child window
CHILD_TEXT$ = "Child Window"
let myStaticText! = myChildWindow!.addStaticText(300,X,Y,WIDTH,HEIGHT,CHILD_TEXT$)

rem 'Insert a tab into the tab control using the child window object
myTabCtrl!.insertTab(0,"Tab 4",myChildWindow!)

rem 'Insert a tab into the tab control using the child window object's ID
myTabCtrl!.insertTab(0,"Tab 3",myChildWindow!.getID())

rem 'Set an image list for the tab control
myTabCtrl!.setImageListPath("tab.bmp")

rem 'Insert a tab into the tab control using an image from the image list and the child window object
myTabCtrl!.insertTab(0,"Tab 2",0,myChildWindow!)

rem 'Insert a tab into the tab control using an image from the image list and the child window object's ID
myTabCtrl!.insertTab(0,"Tab 1",1,myChildWindow!.getID())

rem 'Set tab 4 to be disabled
myTabCtrl!.setEnabledAt(3, mySysGui!.FALSE)

rem 'Set the top level window visible
myWindow!.setVisible(1)

rem 'Register the CALLBACK routines
CALLBACK(ON_CLOSE,APP_CLOSE,0)

rem 'Process Events
process_events

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