/* library for manipulations on 2D objects - by Marc BARILLEY*/

fun _FILLcombo (combo, strList)=
  if strList==nil
  then
    combo
  else
    let strList -> [str next] in
      _FILLcombo (_ADDcombo combo (_GETcomboCount combo) str) next;;

fun _FILLlist (listbox, strList)=
  if strList==nil
  then
    listbox
  else
    let strList -> [str next] in
      _FILLlist (_ADDlist listbox (_GETlistCount listbox) str) next;;