home *** CD-ROM | disk | FTP | other *** search
/ Women & Heart Health - Making informed decisions / PCARDIO.iso / PatCardioAssist.exe / PatCardioAssist.dxr / Internal_138.ls < prev    next >
Encoding:
Text File  |  1999-12-22  |  360 b   |  16 lines
  1. on mouseUp
  2.   global gTTestBPointsList
  3.   set the hilite of member "TTB1a" to 0
  4.   set the hilite of member "TTB1b" to 0
  5.   set the hilite of member "TTB1c" to 1
  6.   set the hilite of member "TTB1d" to 0
  7.   setAt(gTTestBPointsList, 1, 1)
  8. end
  9.  
  10. on mouseDown
  11.   if (soundBusy(2) = 0) and (soundBusy(3) = 0) then
  12.     sound stop 1
  13.     puppetSound("butsnd", 1)
  14.   end if
  15. end
  16.