home *** CD-ROM | disk | FTP | other *** search
/ Knitting Made Easy / Knitting.iso / App / Patterns.dxr / behaviors_79_FindNext2Label.ls < prev    next >
Encoding:
Text File  |  2002-04-18  |  293 b   |  11 lines
  1. on FindNext2Label
  2.   i = 1
  3.   repeat while i <= the number of lines in the labelList
  4.     if the frame < label(line i of the labelList) then
  5.       return line i + 1 of the labelList
  6.     end if
  7.     i = 1 + i
  8.   end repeat
  9.   return line the number of lines in the labelList - 1 of the labelList
  10. end
  11.