home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 7 / cd.iso / pc / PC / Demos / GroovMak / data1.cab / Program_Executable_Files / Media / Synth.dxr / 00176.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  1022 b   |  42 lines
  1. on mouseEnter
  2.   if the visible of window "Help" then
  3.     tell window "help"
  4.       go("synth12")
  5.     end tell
  6.   end if
  7. end
  8.  
  9. on mouseLeave
  10.   if the visible of window "Help" then
  11.     tell window "help"
  12.       go("start")
  13.     end tell
  14.   end if
  15. end
  16.  
  17. on mouseDown
  18.   global gOn
  19.   if gOn and not (the visible of window "help") then
  20.     repeat while the mouseDown
  21.       set the memberNum of sprite 67 to the number of member "Hopen"
  22.       updateStage()
  23.     end repeat
  24.   end if
  25. end
  26.  
  27. on mouseUp
  28.   global gOn
  29.   if gOn and not (the visible of window "help") then
  30.     set the memberNum of sprite 67 to the number of member "open"
  31.     updateStage()
  32.     openWin("openS")
  33.     put EMPTY into field "fieldElencoSynth"
  34.     repeat with i = 1 to count(folderSynthList)
  35.       put getAt(folderSynthList, i) & RETURN after field "fieldElencoSynth"
  36.     end repeat
  37.     set the scrollTop of member "fieldElencoSynth" to 0
  38.     set the textFont of member "fieldElencoSynth" to "IK10"
  39.     set the foreColor of member "fieldElencoSynth" to 0
  40.   end if
  41. end
  42.