/*****************************************************************/
/* Nom    : Liste des librairies de l'application    */
/* But    :           */
/* Arguments:             */
/* Appel    :           */
/* Remarques:              */
/* Histo    : SKA           */
/****************************************************************/

string  ls_list
string  ls_name, ls_pos
string  ls_library[]
string  ls_infos
long  ll_pos, ll_max


ll_max  = 0
ls_list  = getlibrarylist() // fonction existante depuis pb7
ls_pos  = ','


if len(ls_list) > 0 then
  ll_pos    = pos(ls_list,ls_pos)
  
  do while ll_pos > 0
    ls_name   = left(ls_list,ll_pos - 1)
    ll_max  ++
    ls_library[ll_max]  = ls_name
    
    ls_list  = mid(ls_list,ll_pos + 1, len(ls_list))
    ll_pos  = pos(ls_list,ls_pos)
    
  loop
  
  if len(ls_list) > 1 then
    ll_max  ++
    ls_library[ll_max]  = ls_list
  end if
  
end if

for ll_max = 1 to upperbound(ls_library)
  ls_infos = ls_infos + ls_library[ll_max]
  if ll_max < upperbound(ls_library) then
    ls_infos = ls_infos + "~n"
  end if
next

messagebox("Liste des librairies du projet en cours",ls_infos)