home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / guida.dir / 00907_Script_907 < prev    next >
Text File  |  1997-10-07  |  341b  |  16 lines
  1. on copialista sorg
  2.   set dest to [:]
  3.   
  4.  -- put "num el in lista ",count(sorg)
  5.   
  6.   repeat with x  = 1 to count(sorg)
  7. --  put "aggiungo valore " &  getAt(sorg, x) & "  val x = " & x
  8.     addProp dest, getPropAt(sorg, x), getat(sorg,x)
  9.     
  10.     
  11.     --  addAt (dest, x, getAt(sorg, x))
  12.   end repeat
  13.   put dest
  14.   return dest
  15. end
  16.