rem 'Get the index of the selected tab 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)
PARENT_CONTEXT = mySysGui!.getContext()
NUM_OF_TABS = 4
FOR I = 1 TO NUM_OF_TABS
rem 'Create a child window
let myChildWindow! = myWindow!.addChildWindow(200+I,75,75,100,100,"",$$,PARENT_CONTEXT+I,$$)
rem 'Add a static text control on the child window
CHILD_TEXT$ = "Child Window " + STR(I)
let myStaticText! = myChildWindow!.addStaticText(300+I,X,Y,WIDTH,HEIGHT,CHILD_TEXT$)
rem 'Add the child window as a tab on the tab control
TAB_TEXT$ = "Tab " + STR(I)
myTabCtrl!.addTab(TAB_TEXT$,myChildWindow!)
NEXT I
rem 'Set tab 3 as the slected tab
myTabCtrl!.setSelectedIndex(2)
rem 'Set the top level window visible
myWindow!.setVisible(1)
rem 'Get the selected tab, this will return 2 (tab 3)
SELECTED_TAB = myTabCtrl!.getSelectedIndex()
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
|