home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 7 / cd.iso / pc / PC / Demos / GroovMak / data1.cab / Program_Executable_Files / Media / grooveM.dxr / 00629.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  1.3 KB  |  52 lines
  1. on mouseEnter
  2.   if the visible of window "Help" then
  3.     tell window "help"
  4.       go("mix2")
  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.   if not (the visible of window "help") then
  19.     repeat while the mouseDown
  20.       set the memberNum of sprite 45 to the number of member "HsaveMix"
  21.       updateStage()
  22.     end repeat
  23.   end if
  24. end
  25.  
  26. on mouseUp
  27.   global gSong, gPath, vmixlist, durationList
  28.   if not (the visible of window "help") then
  29.     cursor(4)
  30.     set the memberNum of sprite 45 to the number of member "saveMix"
  31.     updateStage()
  32.     set myFile to new(xtra("fileio"))
  33.     setFilterMask(myFile, ".txt")
  34.     set nameFile to displaySave(myFile, "Save V_Mix window", EMPTY)
  35.     createFile(myFile, nameFile)
  36.     openFile(myFile, nameFile, 2)
  37.     writeString(myFile, gSong && "v_mix" & numToChar(13) & numToChar(10))
  38.     repeat with i = 1 to 4
  39.       writeString(myFile, getAt(vmixlist, i))
  40.     end repeat
  41.     set durata to EMPTY
  42.     repeat with i = 1 to 4
  43.       set durata to durata & getAt(durationList, i) & " "
  44.     end repeat
  45.     writeString(myFile, durata)
  46.     closeFile(myFile)
  47.     set myFile to 0
  48.     cursor(-1)
  49.   end if
  50.   set the editable of member "fieldBpm" to 0
  51. end
  52.