home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 7 / cd.iso / pc / PC / Demos / GroovMak / data1.cab / Program_Executable_Files / Media / OpenS.dxr / 00057.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  1.8 KB  |  52 lines
  1. on mouseDown
  2.   global loadSynthList
  3.   if loadSynthList <> [] then
  4.     repeat while the mouseDown
  5.       set the memberNum of sprite the clickOn to the number of member "Htransfer"
  6.       updateStage()
  7.     end repeat
  8.   end if
  9. end
  10.  
  11. on mouseUp
  12.   global gPath, gPathSynth, loadSynthList, folderSynthList
  13.   if loadSynthList <> [] then
  14.     cursor(4)
  15.     set the memberNum of sprite the clickOn to the number of member "transfer"
  16.     updateStage()
  17.     set temp to []
  18.     repeat with i = 1 to count(loadSynthList)
  19.       if DirectoryExists(gPath & "Synth\" & getAt(loadSynthList, i) & "\") <> 0 then
  20.         append(temp, getAt(loadSynthList, i))
  21.       end if
  22.     end repeat
  23.     if temp <> [] then
  24.       set loadSynthList to []
  25.       set dim to 380 * count(temp)
  26.       if IKGetFreeDiskSpace(chars(gPath, 1, offset("\", gPath))) < (dim + 10000) then
  27.         openWin("Message")
  28.         tell window "Message"
  29.           go("12")
  30.         end tell
  31.       else
  32.         repeat with i = 1 to count(temp)
  33.           CreateDirectory(gPath & "Synth\" & getAt(temp, i) & "\")
  34.           CopyDirectory(gPathSynth & getAt(temp, i) & "\", gPath & "Synth\" & getAt(temp, i) & "\")
  35.           append(folderSynthList, chars(getAt(temp, i), 1, length(getAt(temp, i))))
  36.           sort(folderSynthList)
  37.         end repeat
  38.         put EMPTY into field "fieldElencoSynth"
  39.         repeat with i = 1 to count(folderSynthList)
  40.           put getAt(folderSynthList, i) into line i of field "fieldElencoSynth"
  41.         end repeat
  42.         set the textFont of field "fieldElencoSongHD" to "IK10"
  43.         set the foreColor of member "fieldElencoSynth" to 0
  44.         set the textFont of field "fieldElencoSynth" to "IK10"
  45.         updateStage()
  46.         set the foreColor of member "fieldElencoSynthCD" to 0
  47.       end if
  48.     end if
  49.     cursor(-1)
  50.   end if
  51. end
  52.