home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / tools.dir / 00011_list1.ls < prev    next >
Encoding:
Text File  |  1996-08-12  |  1.2 KB  |  40 lines
  1. on mouseDown
  2.   global theKeyLine, whLett
  3.   if the doubleClick and (the mouseLine <> -1) then
  4.     dontPassEvent()
  5.     exit
  6.   end if
  7.   set lastIndexLine to -1
  8.   set mLine to the mouseLine
  9.   if mLine = -1 then
  10.     pass()
  11.   else
  12.     set executeOnce to 0
  13.     repeat while the stillDown or (executeOnce = 0)
  14.       set mLine to the mouseLine
  15.       if (mLine <> lastIndexLine) and (mLine <> -1) then
  16.         set the foreColor of line lastIndexLine of field 11 to 255
  17.         set the foreColor of line mLine of field 11 to 3
  18.         set lastIndexLine to mLine
  19.         set executeOnce to 1
  20.         set theKeyLine to mLine
  21.         put theKeyLine
  22.         set findTemp to EMPTY
  23.         set findTemp2 to EMPTY
  24.         set findTemp to line mLine of field 12
  25.         repeat with n = 1 to the number of items in findTemp
  26.           put item n of findTemp & RETURN after findTemp2
  27.         end repeat
  28.         delete line the number of lines in findTemp2 of findTemp2
  29.         set findTemp2 to findTemp2 & "  " & RETURN
  30.         set the text of field "result" to " "
  31.         setHeadline("result")
  32.         set the text of field "result" to string(findTemp2)
  33.         moveIndicator(mLine)
  34.         set the castNum of sprite 7 to 7
  35.         updateStage()
  36.       end if
  37.     end repeat
  38.   end if
  39. end
  40.