hilitedline

[Geoff Canyon]

I replied in the other thread as well, but:

function removeLines lineList,S
   put 0 into lineCounter
   split lineList with comma as set
   repeat for each line L in S
      add 1 to lineCounter
      if lineList[lineCounter] then next repeat
      put L & cr after R
   end repeat
   return char 1 to -2 of R
end removeLines

This will test it, putting the non-hilited lines of fld 2 into fld 1:

on mouseUp
   put removeLines(the hilitedLines of fld 2,fld 2) into fld 1
end mouseUp