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 / 00048.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  633 b   |  27 lines
  1. on mouseDown
  2.   repeat while the mouseDown
  3.     set the memberNum of sprite 15 to the number of member "Hcancel"
  4.     updateStage()
  5.   end repeat
  6. end
  7.  
  8. on mouseUp
  9.   global gPath, gSynth, gUserPath
  10.   cursor(4)
  11.   set the memberNum of sprite 15 to the number of member "cancel"
  12.   updateStage()
  13.   if soundBusy(1) then
  14.     sound stop 1
  15.   end if
  16.   if the last char in field "fieldUserPath" <> "\" then
  17.     repeat while the last char in field "fieldUserPath" <> "\"
  18.       delete char -30000 of field "fieldUserPath"
  19.     end repeat
  20.   end if
  21.   set gUserPath to field "fieldUserPath"
  22.   go(1)
  23.   IKFunction()
  24.   cursor(-1)
  25.   close(window "loadU")
  26. end
  27.