<pre>on offsetParts layer,attribut,valeur,offset  if layer is empty then return "Layer parameter is empty."  if attribut is empty then return "Attribut parameter is empty."  if valeur is empty then return "Value parameter is empty."  if layer is empty then return "Offset parameter is empty."  toComputer  put selectedParts(layer) into theParts  if theParts is not empty then    put line 1 of theParts into theObject    put quote & valeur & quote into theValue    do "set" && attribut && "of" && theObject && "to" && theValue    repeat with x = 2 to the number of lines in theParts      add offset to valeur      put line x of theParts into theObject      put quote & valeur & quote into theValue      do "set" && attribut && "of" && theObject && "to" && theValue    end repeat  end ifend offsetParts</pre>