home *** CD-ROM | disk | FTP | other *** search
/ Women & Heart Health - Making informed decisions / PCARDIO.iso / PatCardioAssist.exe / PatCardioAssist.dxr / Internal_184.ls < prev    next >
Encoding:
Text File  |  1999-12-22  |  1.2 KB  |  37 lines
  1. on exitFrame
  2.   doMenuRollovers()
  3.   if rollOver(47) then
  4.     puppetSprite(47, 1)
  5.     set the member of sprite 47 to member "LeftHilite"
  6.   else
  7.     puppetSprite(47, 0)
  8.   end if
  9.   puppetSprite(48, 0)
  10.   if rollOver(49) then
  11.     puppetSprite(49, 1)
  12.     set the member of sprite 49 to member "TTestBackHilite"
  13.   else
  14.     puppetSprite(49, 0)
  15.   end if
  16.   if rollOver(50) then
  17.     puppetSprite(50, 1)
  18.     set the member of sprite 50 to member "TTestBackHomeHilite"
  19.   else
  20.     puppetSprite(50, 0)
  21.   end if
  22.   go(the frame)
  23. end
  24.  
  25. on enterFrame
  26.   global gTTestBPointsList
  27.   UnpuppetSpecials()
  28.   set the text of field "TTB1" to string(getAt(gTTestBPointsList, 1))
  29.   set the text of field "TTB2" to string(getAt(gTTestBPointsList, 2))
  30.   set the text of field "TTB3" to string(getAt(gTTestBPointsList, 3))
  31.   set the text of field "TTB4" to string(getAt(gTTestBPointsList, 4))
  32.   set the text of field "TTB5" to string(getAt(gTTestBPointsList, 5))
  33.   set the text of field "TTB6" to string(getAt(gTTestBPointsList, 6))
  34.   set lTTestBPoints to getAt(gTTestBPointsList, 1) + getAt(gTTestBPointsList, 2) + getAt(gTTestBPointsList, 3) + getAt(gTTestBPointsList, 4) + getAt(gTTestBPointsList, 5) + getAt(gTTestBPointsList, 6)
  35.   set the text of field "TTBTotal" to string(lTTestBPoints)
  36. end
  37.