home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / tools.dir / 00388.ls < prev    next >
Encoding:
Text File  |  1995-01-25  |  373 b   |  16 lines
  1. on mouseDown
  2.   productSelect(#reverse)
  3. end
  4.  
  5. on mouseUp
  6.   global tProductSelect, tSectionSelect
  7.   set the castNum of sprite the clickOn to the number of cast "leftArrow"
  8.   if tSectionSelect = "order" then
  9.     go(label(tProductSelect & tSectionSelect) + 6)
  10.   else
  11.     go(label(tProductSelect & tSectionSelect) + 3)
  12.   end if
  13.   puppetSprite(the clickOn, 0)
  14.   updateStage()
  15. end
  16.