home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / shared.dir / 00430.ls < prev    next >
Encoding:
Text File  |  1996-07-24  |  620 b   |  29 lines
  1. on mouseUp
  2.   global castData, theMenu, linePtr
  3.   if stringp(theMenu) = 0 then
  4.     set theMenu to EMPTY
  5.   end if
  6.   if theMenu = "Index" then
  7.     goToMenuItem()
  8.   else
  9.     if theMenu = "bookMark" then
  10.       set movieName to line linePtr + 1 of field 483
  11.       set MDMovie to selectMDMovie(movieName)
  12.       if MDMovie <> 0 then
  13.         goNextLoc(MDMovie, 1, marker(0))
  14.       else
  15.         beep()
  16.       end if
  17.     else
  18.       if item 1 of theMenu <> EMPTY then
  19.         getMenuItem()
  20.         goToMenuItem()
  21.       else
  22.         if the doubleClick then
  23.           goToMenuItem()
  24.         end if
  25.       end if
  26.     end if
  27.   end if
  28. end
  29.