home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 6 / MacAddict_006_1997_02.iso / media / RESOURCES.Dxr / 00056.ls < prev    next >
Encoding:
Text File  |  1996-11-22  |  1018 b   |  31 lines
  1. on mouseDown
  2.   global arrows, bluesprites, bluedelta, dbase
  3.   set spritenum to the clickOn
  4.   set curcastname to the name of member the memberNum of sprite spritenum
  5.   puppetSound(2, 0)
  6.   puppetSound(2, "flick")
  7.   set bluestrips to bluesprites + bluedelta
  8.   set curpos to getPos(bluestrips, spritenum)
  9.   repeat with index = 1 to 6
  10.     set aspritenum to getAt(arrows, index)
  11.     set the visible of sprite aspritenum to curpos = index
  12.   end repeat
  13.   delete char 1 to 2 of curcastname
  14.   put curcastname into field "title"
  15.   updateStage()
  16.   if curcastname <> "About Shareware" then
  17.     set the activecategory of dbase to curcastname
  18.     set files to getrecords(dbase)
  19.     set the text of field "display" to listtotext(files, RETURN)
  20.     hideInstall()
  21.   else
  22.     set the text of field "display" to the text of field "About Shareware"
  23.   end if
  24.   set the scrollTop of member "display" to 0
  25.   set thumb to castspritea("thumb")
  26.   puppetSprite(thumb, 1)
  27.   set the locV of sprite thumb to 224
  28.   updateStage()
  29.   setControls(0)
  30. end
  31.