home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / shared.dir / 00520.ls < prev    next >
Encoding:
Text File  |  1996-07-24  |  731 b   |  27 lines
  1. on mouseDown
  2.   global castData, linePtr, bkMrkList, browseName
  3.   set me to the clickOn
  4.   set x to the castNum of sprite me
  5.   set the castNum of sprite me to x + 1
  6.   repeat while the mouseDown
  7.     updateStage()
  8.   end repeat
  9.   set the castNum of sprite me to x
  10.   updateStage()
  11.   if rollOver(me) then
  12.     if item 1 of castData = "search" then
  13.       put EMPTY into field 540
  14.     else
  15.       if item 1 of castData = "bookmark" then
  16.         set x to line linePtr + 1 of field 483
  17.         delete line linePtr + 1 of field 483
  18.         delete line linePtr + 1 of bkMrkList
  19.         set the visible of sprite 48 to 0
  20.         if x = browseName then
  21.           set the locH of sprite 4 to 1000
  22.         end if
  23.       end if
  24.     end if
  25.   end if
  26. end
  27.