compile subroutine set_list_box_data( Window )
declare function utility, fieldcount, set_property

$insert logical
EC1 = utility( 'OBJECTLIST', Window, 'COMBOBOX' )
EC2 = utility( 'OBJECTLIST', Window, 'LISTBOX' )
EffectedControls = EC1:@fm:EC2
EfCnt = fieldcount( EffectedControls, @fm )
for i = 1 to Efcnt
   ThisControl = EffectedControls<i>
   if ThisControl then
	   ConfigId = field( ThisControl, '.', 2 )
	   Clen = len( ConfigId )
	   ConfigId = ConfigId[Clen,'B_']
	   ThisListData = xlate( 'LISTBOX_CONFIG', ConfigId, 1, 'X' )
	   convert @vm to @fm in ThisListData
	   if ThisListData then
	      void = set_property( ThisControl, 'LIST', ThisListData )
	   end
   end
next i


