home *** CD-ROM | disk | FTP | other *** search
/ Club KidSoft Volume 3 #2 / CKSPCV32.BIN / movies / find.dir / 00012_Script_12 < prev    next >
Text File  |  1995-04-05  |  800b  |  27 lines
  1. -- Click in Title list
  2. on mouseDown
  3.   global SFindTitles, SFindHilite, SFindLineHeight, gTitlesXref
  4.   
  5.   if the machineType < 256 then
  6.     set itemHit = MenuSelect(SFindTitles, SFindHilite, SFindLineHeight, -1)
  7.   else
  8.     set itemHit = MenuSelect(SFindTitles, SFindHilite, SFindLineHeight, 0)
  9.   end if
  10.   set the visible of sprite SFindHilite = FALSE
  11.   if itemHit <> 0 then
  12.     cursor 4
  13.     CLICK
  14.     CloseFind
  15.     global FINDcurDisplay
  16.     set findLine = GetFindLine(FINDcurDisplay, itemHit)
  17.     global gFindClickHandler
  18.     set foo = line findLine of gTitlesXref
  19.  
  20.     SetItemDelim(",")
  21.     set findLine = item 1 of foo
  22.     RestoreItemDelim
  23.     set doIt = gFindClickHandler & "(" & quote & findLine & quote & ")"
  24.     ExecuteDialogHandler(doIt) -- in shared.dir
  25.   end if
  26. end
  27.