The TEST_LB Function

The TEST_LB function, called from the CLICK event of the B_POPULATE button, populates the list box. Create this function in the System Editor by copying the code below:

function test_lb(CtrlId, Event)


*declare all the subroutines and functions that are used

declare subroutine Set_Property, Send_Message, Repository

declare function Send_Message, Get_Property

 

*Tab character will be used as a separator

equ TAB$ to \09\

 

*Get the name of the window

winId = CtrlId [1, '.']

 

*Get the name of the control

ctrlName = CtrlId [col2()+1, \00\]

 

begin case

 

   case ctrlName = 'B_POPULATE'

   *populate list box with static tabbed content when button clicked

   content ='' 

   content<1> = 'OpenInsight'

   content<2> = TAB$: 'Tech Notes'

   content<3> = TAB$:TAB$: 'Hierarchical List Boxes Part 1'

   content<4> = TAB$:TAB$: 'Hierarchical List Boxes Part 2'

   content<5> = TAB$: 'White Papers'

   content<6> = TAB$:TAB$: 'How to Get to the Web With OpenInsight'

   Set_Property(WinId: '.LB_H', 'LIST', content)

end case

return 0