Computer Music Interactif 7/cd.iso/pc/PC/Demos/GroovMak/data1.cab/Program_Executable_Files/Media/Synth.dxr/00169.ls

Text File | 1999-09-17 | 1.5 KB | 54 lines

on mouseEnter
  if the visible of window "Help" then
    tell window "help"
      go("synth4")
    end tell
  end if
end

on mouseLeave
  if the visible of window "Help" then
    tell window "help"
      go("start")
    end tell
  end if
end

on mouseDown
  global gOn, synthList, folderSynthList
  if gOn and (synthList <> []) and (folderSynthList <> []) and not (the visible of window "help") then
    repeat while the mouseDown
      set the memberNum of sprite 62 to the number of member "Hsave"
      updateStage()
    end repeat
  end if
end

on mouseUp
  global gArp, gProg, gOn, gPosVolSynth, gPosPanSynth, synthList, folderSynthList
  if gOn and (folderSynthList <> []) and not (the visible of window "help") then
    if synthList <> [] then
      set the memberNum of sprite 62 to the number of member "save"
      updateStage()
      set testo to EMPTY
      repeat with i = 1 to count(synthList)
        set testo to testo & getAt(synthList, i) & " "
      end repeat
      set testo to testo & numToChar(13) & numToChar(10)
      set testo to testo & field "fieldSynth" & " "
      set testo to testo & gArp & " "
      set testo to testo & gProg & " "
      set testo to testo & gPosVolSynth & " "
      set testo to testo & gPosPanSynth & " "
      set myFile to new(xtra("fileio"))
      setFilterMask(myFile, ".txt")
      set nameFile to displaySave(myFile, "Save synth window", EMPTY)
      createFile(myFile, nameFile)
      openFile(myFile, nameFile, 2)
      writeString(myFile, testo)
      closeFile(myFile)
      set myFile to 0
    end if
  end if
end