home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / shared.dir / 00521.ls < prev    next >
Encoding:
Text File  |  1996-07-24  |  1.3 KB  |  50 lines
  1. on mouseDown
  2.   global castData, articleList, theMenu, menuText, linePtr, filterStatus, theClickLine
  3.   set me to the clickOn
  4.   set the ink of sprite me to 32
  5.   set x to the castNum of sprite me
  6.   set the castNum of sprite me to x + 1
  7.   repeat while the mouseDown
  8.     updateStage()
  9.   end repeat
  10.   set the castNum of sprite me to x
  11.   updateStage()
  12.   if rollOver(me) then
  13.     if item 1 of castData = "Search" then
  14.       set theMenu to EMPTY
  15.       set menuText to EMPTY
  16.       set theClickLine to 0
  17.       if filterStatus contains "1" then
  18.         if field 540 = EMPTY then
  19.           notify(37, 616)
  20.           set castData to "Search"
  21.           exit
  22.         end if
  23.       else
  24.         notify(37, 617)
  25.         set castData to "Search"
  26.         exit
  27.       end if
  28.       set x to searchForItem(field 540)
  29.       if x <> EMPTY then
  30.         set castData to "searchResults"
  31.         put x into field 463
  32.         set linePtr to -1
  33.         showWd("38-42")
  34.       else
  35.         beep()
  36.       end if
  37.     else
  38.       if item 1 of castData = "bookmark" then
  39.         set movieName to line linePtr + 1 of field 483
  40.         set MDMovie to selectMDMovie(movieName)
  41.         if MDMovie <> 0 then
  42.           goNextLoc(MDMovie, 1, marker(0))
  43.         else
  44.           beep()
  45.         end if
  46.       end if
  47.     end if
  48.   end if
  49. end
  50.