home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 6 / MacAddict_006_1997_02.iso / media / ThisIssue.Dxr / Internal_37.ls < prev    next >
Encoding:
Text File  |  1996-11-22  |  582 b   |  24 lines
  1. on mouseDown
  2.   global dbase, knob
  3.   set curline to the mouseLine
  4.   if curline < 1 then
  5.     exit
  6.   end if
  7.   set spritenum to the clickOn
  8.   set castNum to the memberNum of sprite spritenum
  9.   set linetext to line curline of field castNum
  10.   put linetext
  11.   set articles to getCategories(dbase)
  12.   put articles
  13.   set pos to getPos(articles, linetext)
  14.   if pos > 0 then
  15.     showfiles(the knobstate of knob, pos)
  16.   end if
  17.   resetThumb("filethumb")
  18.   set the visible of sprite castspritea("installbtn") to 0
  19.   puppetSound(3, 0)
  20.   puppetSound(3, "Flash")
  21.   setControls(0)
  22.   cyclelights(2)
  23. end
  24.