added LSL2 stored procedures

LSL2/STPROC/SET_LIST_BOX_DATA.txt

@@ -0,0 +1,23 @@
+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
+
+