home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 7 B / CHIP_HITWARE_7B.iso / Edukacja / Guitar Tuner / Wintun16.dxr / 00018_tuning.ls < prev    next >
Encoding:
Text File  |  1997-04-24  |  194 b   |  15 lines
  1. on mouseDown
  2.   puppetSound("3")
  3.   tuningDown()
  4.   updateStage()
  5.   makeTuningSelection()
  6. end
  7.  
  8. on mouseUp
  9.   repeat while soundBusy(1)
  10.   end repeat
  11.   puppetSound(0)
  12.   tuningUp()
  13.   updateStage()
  14. end
  15.