<pre>on selectBkgnd deselectAll  set cursor to watch  if deselectAll is not empty  then put writeFile empty,disk() & ":Fichiers:Listes:selectedBkgnds"  else    put readFile(disk() & ":Fichiers:Listes:selectedBkgnds") into selectedBkgnds    get the long name of this bg    if it is not in selectedBkgnds then       put it & return after selectedBkgnds      writeFile selectedBkgnds,disk() & ":Fichiers:Listes:selectedBkgnds"    end if  end ifend selectBkgnd</pre>