<pre>on fouillerScripts chane  -- trouver "chane" successivement dans tous les scripts d'une pile.  toComputer  set userLevel to 5  -- doit tre au niveau 5 pour fouiller les scripts  global scriptFindString  push cd  ----------------------------------------------------------------------  if chane is empty then    ask "Trouver quelle chane ?" with scriptFindString    if (it is empty) or (the result is "Cancel") then exit fouillerScripts    put it into scriptFindString -- CMD & F dans l'editeur de scripts  else    put chane into scriptFindString  end if  ----------------------------------------------------------------------  -- FOUILLER SCRIPT DE LA PILE  if the script of this stack contains scriptFindString  then edit script of this stack  set cursor to watch  ----------------------------------------------------------------------  -- FOUILLER SCRIPTS DE CHACUN DES FONDS ET LEURS OBJETS  repeat with curBg = 1 to the number of bgs    go to cd 1 of bg curBg    if the script of this bg contains scriptFindString    then edit script of bg curBg    set cursor to watch    if the number of bg btns  1 then      repeat with curBgBtn = 1 to the number of bg btns        if the script of bg btn curBgBtn contains scriptFindString        then edit script of bg btn curBgBtn        set cursor to watch      end repeat    end if    if the number of flds  1 then      repeat with curBgField = 1 to the number of flds        if the script of fld curBgField contains scriptFindString        then edit script of fld curBgField        set cursor to watch      end repeat    end if  end repeat  ----------------------------------------------------------------------  -- FOUILLER SCRIPTS DE CHACUNE DES CARTES ET LEURS OBJETS  repeat with curCard = 1 to the number of cds    go cd curCard    if the script of this cd contains scriptFindString    then edit script of this cd    set cursor to watch    if the number of btns  1 then      repeat with curCdBtn = 1 to the number of btns        if the script of btn curCdBtn contains scriptFindString        then edit script of btn curCdBtn        set cursor to watch      end repeat    end if    if the number of cd flds  1 then      repeat with curCdFld = 1 to the number of cd flds        if the script of cd fld curCdFld contains scriptFindString        then edit script of cd fld curCdFld        set cursor to watch      end repeat    end if  end repeat  ----------------------------------------------------------------------  pop cdend fouillerScripts</pre>