home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 7 / cd.iso / pc / PC / Demos / GroovMak / data1.cab / Program_Executable_Files / Media / LoadU.dxr / 00024.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  1.7 KB  |  43 lines
  1. on setMonitor
  2.   global gPath, gUserPath, gCD, gFirstLine, gTotLine, groupList
  3.   if (chars(gUserPath, 1, 3) = "A:\") and (DirectoryToList("A:\") = []) then
  4.     set gUserPath to "Computer resources"
  5.   end if
  6.   if (offset(gCD, gUserPath) = 1) and (DirectoryToList(gCD) = []) then
  7.     set gUserPath to "Computer resources"
  8.   end if
  9.   put gUserPath into field "fieldUserPath"
  10.   set the foreColor of member "fieldUserPath" to 0
  11.   if field "fieldUserPath" = "Computer resources" then
  12.     put "A:\" & RETURN & chars(gCD, 1, length(gCD)) & RETURN & chars(gPath, 1, offset("\", gPath)) into field "fieldOpenFile"
  13.   else
  14.     put EMPTY into field "fieldOpenFile"
  15.     set temp to DirectoryToList(field "fieldUserPath")
  16.     repeat with i = 1 to count(temp)
  17.       set nome to getAt(temp, i)
  18.       if (the last char in nome = "\") or (chars(nome, length(nome) - 3, length(nome)) = ".wav") then
  19.         put nome & RETURN after field "fieldOpenFile"
  20.       end if
  21.     end repeat
  22.     delete char -30000 of field "fieldOpenFile"
  23.     set the scrollTop of member "fieldOPenFile" to 0
  24.   end if
  25.   set the foreColor of member "fieldOpenFile" to 0
  26.   set the visible of sprite 24 to 1
  27.   repeat with i = 25 to 31
  28.     set the visible of sprite i to 0
  29.   end repeat
  30.   put getAt(groupList, 1) into field "fieldUserCategory"
  31.   put "128" into field "fieldUserVol"
  32.   put "64" into field "fieldUserPan"
  33.   put EMPTY into field "fieldUserFullName"
  34.   put EMPTY into field "fieldElencoCategory"
  35.   repeat with i = 1 to count(groupList)
  36.     put getAt(groupList, i) & RETURN after field "fieldElencoCategory"
  37.   end repeat
  38.   delete char -30000 of field "fieldElencoCategory"
  39.   set the locV of sprite 36 to 56
  40.   set gFirstLine to 1
  41.   set gTotLine to the number of lines in field "fieldOpenFile"
  42. end
  43.