<pre>on rectSelectParts  put "Cliquer en haut  gauche..."  wait until the mouseClick  put the clickLoc into topLeft  put "Cliquer en bas  droite..."  wait until the mouseClick  put the clickLoc into botRight  put topLeft & "," & botRight into selectionRect  -------------------------------------------------------------------  repeat with x = 1 to the number of cd parts    if loc of cd part x is within selectionRect    then put the long name of cd part x & return after selectedParts  end repeat  repeat with x = 1 to the number of bg parts    if loc of bg part x is within selectionRect    then put the long name of bg part x & return after selectedParts  end repeat  -------------------------------------------------------------------  writeFile selectedParts,disk & ":Fichiers:Listes:selectedParts"  put long name of this cd into selectedPartsCard  writeFile selectedPartsCard,disk & ":Fichiers:Listes:selectedPartsCard"  ---------------------------------------------------------------------end rectSelectParts</pre>