home *** CD-ROM | disk | FTP | other *** search
/ Women & Heart Health - Making informed decisions / PCARDIO.iso / PatCardioAssist.exe / PatCardioAssist.dxr / Internal_102.ls < prev    next >
Encoding:
Text File  |  1999-12-22  |  765 b   |  26 lines
  1. on mouseUp
  2.   global gHTestAnswerList, gHTMarksList
  3.   set the hilite of member "HT10a" to 0
  4.   set the hilite of member "HT10b" to 1
  5.   set the picture of member "HT10TF" to the picture of member "HTFalse"
  6.   if getAt(gHTestAnswerList, 10) = "false" then
  7.     setAt(gHTMarksList, 10, 1)
  8.     set the picture of member "HT10Mark" to the picture of member "HTTick"
  9.   else
  10.     setAt(gHTMarksList, 10, 0)
  11.     set the picture of member "HT10Mark" to the picture of member "HTEx"
  12.   end if
  13.   set lTotal to 0
  14.   repeat with i = 1 to 10
  15.     set lTotal to lTotal + getAt(gHTMarksList, i)
  16.   end repeat
  17.   set the text of field "HTTotal" to string(lTotal)
  18. end
  19.  
  20. on mouseDown
  21.   if (soundBusy(2) = 0) and (soundBusy(3) = 0) then
  22.     sound stop 1
  23.     puppetSound("butsnd", 1)
  24.   end if
  25. end
  26.