home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 7 / cd.iso / pc / PC / Demos / GroovMak / data1.cab / Program_Executable_Files / Media / LoadU.dxr / 00026.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  442 b   |  18 lines
  1. on mouseUp
  2.   set the editable of member "fieldUserVol" to 1
  3. end
  4.  
  5. on keyUp
  6.   if (the keyCode = 36) or (the keyCode = 76) then
  7.     delete char -30000 of field "fieldUserVol"
  8.     set the editable of member "fieldUserVol" to 0
  9.     set testo to field "fieldUserVol"
  10.     if integer(testo) > 128 then
  11.       put "128" into field "fieldUserVol"
  12.     end if
  13.     if integer(testo) < 0 then
  14.       put "0" into field "fieldUserVol"
  15.     end if
  16.   end if
  17. end
  18.