home *** CD-ROM | disk | FTP | other *** search
/ Club KidSoft Volume 3 #3 / CKSPCV33.BIN / movies / find.dir / 00009_Script_9 < prev    next >
Text File  |  1995-04-05  |  430b  |  19 lines
  1. -- Click in Find tab
  2. on mouseDown
  3.   global SFindScrollExtent, SFindTab, gNumFindPairs, FINDcurDisplay
  4.   
  5.   repeat while the mouseDown = TRUE
  6.     set findItem = CalcFindItemHit(the mouseV, SFindScrollExtent, gNumFindPairs)
  7.     
  8.     if findItem <> FINDcurDisplay then
  9.       PAGEFLIP
  10.       SetSFindTabLocV(findItem)
  11.       updateStage
  12.       ShowFindTitles(findItem)
  13.       StopSound
  14.     end if
  15.     
  16.   end repeat
  17. end
  18.  
  19.