on appendMenuFonds
  toComputer
  put "Fonds" into menuName
  create menu menuName
  repeat with x = 1 to the number of bgs
    put the short name of bg x into menuItemName
    put "goToBkgnd" && menuItemName into menuItemMessage
    put menuItemName after menu menuName with menuMsg menuItemMessage
  end repeat
  put the short name of this bg into menuItemName
  if there is a menuItem menuItemName of menu menuName
  then set checkMark of menuItem menuItemName of menu menuName to true
end appendMenuFonds