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 / 00059.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  1.2 KB  |  39 lines
  1. on mouseDown
  2.   global delSynthList
  3.   if delSynthList <> [] then
  4.     repeat while the mouseDown
  5.       set the memberNum of sprite the clickOn to the number of member "Hdelete"
  6.       updateStage()
  7.     end repeat
  8.   end if
  9. end
  10.  
  11. on mouseUp
  12.   global gPath, delSynthList, folderSynthList
  13.   if delSynthList <> [] then
  14.     cursor(4)
  15.     set the memberNum of sprite the clickOn to the number of member "delete"
  16.     updateStage()
  17.     repeat with i = 1 to count(delSynthList)
  18.       set folder to gPath & "Synth\" & getAt(delSynthList, i) & "\"
  19.       set temp to DirectoryToList(folder)
  20.       repeat with j = 1 to count(temp)
  21.         IKChangeAttrib(folder & getAt(temp, j))
  22.         DeleteFile(folder & getAt(temp, j))
  23.       end repeat
  24.       DeleteDirectory(folder)
  25.       deleteAt(folderSynthList, getPos(folderSynthList, getAt(delSynthList, i)))
  26.     end repeat
  27.     put EMPTY into field "fieldElencoSynth"
  28.     repeat with i = 1 to count(folderSynthList)
  29.       put getAt(folderSynthList, i) & RETURN after field "fieldElencoSynth"
  30.     end repeat
  31.     set the scrollTop of member "fieldElencoSynth" to 0
  32.     set the textFont of member "fieldElencoSynth" to "IK10"
  33.     set the foreColor of member "fieldElencoSynth" to 0
  34.     updateStage()
  35.     set delSynthList to []
  36.     cursor(-1)
  37.   end if
  38. end
  39.