BBjListBox::getSelectedIndices

rem 'Get the indices of the currently selected items in a list box control

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
myWindow! = mySysGui!.addWindow(X,Y,WIDTH,HEIGHT,TITLE$)

rem 'Add a list box control to the window
myListBox! = myWindow!.addListBox(101,50,100,90,60,"",$0000$)

rem 'Add items into the list box
FOR I = 1 TO 4
    ITEM$="ITEM " + STR(I)
    myListBox!.addItem(ITEM$)
NEXT I

rem 'Set the list box control to allow for multiple item selection
myListBox!.setMultipleSelection(mySysGui!.TRUE)

rem 'Select an items in the list box
myListBox!.selectIndex(2)
myListBox!.selectIndex(3)

rem 'Get the indices of the currently selected items in a list box control
myVector! = myListBox!.getSelectedIndices()

rem 'Get the item at the selected index, this will return "ITEM 3"
SEL_ITEM$ = myListBox!.getItemAt(myVector!.getItem(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