home *** CD-ROM | disk | FTP | other *** search
/ Discovering Nature in the City / LUONTOCD.iso / pc / files / sound.dxr / 00003_list.ls < prev    next >
Encoding:
Text File  |  1996-12-16  |  372 b   |  16 lines
  1. global gRecList, gnewSound
  2.  
  3. on mouseUp
  4.   set theLine to the mouseLine
  5.   set theField to the mouseCast
  6.   set theWord to word theLine of field "list"
  7.   if (theLine > 0) and (theField > 0) then
  8.     hilite line theLine of field theField
  9.     set gnewSound to getAt(gRecList, theLine)
  10.     if soundBusy(1) = 1 then
  11.       sound stop 1
  12.       playRecSound()
  13.     end if
  14.   end if
  15. end
  16.