home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 6 / MacAddict_006_1997_02.iso / media / ThisIssue.Dxr / Internal_38.ls < prev    next >
Encoding:
Text File  |  1996-11-22  |  993 b   |  34 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.   puppetSound(3, 0)
  8.   puppetSound(3, "Flash")
  9.   set spritenum to the clickOn
  10.   set castNum to the memberNum of sprite spritenum
  11.   set linetext to line curline of field castNum
  12.   put linetext
  13.   set files to getrecords(dbase)
  14.   set pos to getPos(files, linetext)
  15.   resetThumb("filethumb")
  16.   setControls(0)
  17.   set the scrollTop of member "files" to 0
  18.   if pos > 0 then
  19.     set rec to getindexedrecord(dbase, pos)
  20.     set the textFont of member "files" to "Geneva"
  21.     set buffer to outsafeput(the description of rec)
  22.     put the name of rec & RETURN before buffer
  23.     put buffer into field "files"
  24.     set the textFont of line 1 of field "files" to "Chicago"
  25.     set the visible of sprite castspritea("installbtn") to 1
  26.     preLoad(member "installbtnDown")
  27.     cyclelights(6)
  28.   else
  29.     showfiles()
  30.     set the visible of sprite castspritea("installbtn") to 0
  31.     cyclelights(1)
  32.   end if
  33. end
  34.